आर: इस प्रकार जाली

Question

मेरे डेटा में विभिन्न पहलुओं/पैनलों के लिए रंग को निर्दिष्ट किया जाता है के रूप में:

grp = rep(1:2, each = 100) 
chr = c(rep(1:10, each = 10), rep(1:10, each = 10)) 
var = paste (grp, "chr", chr, sep = "") 
pos = (rep(1:10, 20)) 
yvar = rnorm(200) 
mydf = data.frame (var, pos, yvar) 

require(lattice) 
xyplot(yvar ~ pos| factor(var), data = mydf, layout = c(1,10), type = c("g", "h"), 
     col = "darkolivegreen", lwd = 4) 

(1) मैं वैकल्पिक ग्राफ/पैनल के लिए अलग अलग रंग रखना चाहते हैं - उदाहरण के लिए - 2chr1 है darkolive हरी लेकिन chr10 बैंगनी कहता है। फिर फिर से अंधेरे जैतून हरे और बैंगनी इतने पर।

(2) मैं ग्राफ के रिवर्स ऑर्डर का उपयोग करना चाहता हूं जिसका मतलब है कि 2chr9 नीचे है।

धन्यवाद

Answer 1

उपयोग as.table=TRUEgroups (एक विस्तारित col vec के साथ) पैनल के आदेश और Colo (यू) रु बदलने के लिए बदलने के लिए।

संपादित: समायोजित कारक के स्तर के क्रम

mydf <- 
    data.frame (var, pos, yvar, 
       ## fvar = factor(var,levels=unique(var)), 
       fvar = factor(var, levels = c(outer(2:1, 1:10, paste, sep="chr")))) 

xyplot(yvar ~ pos| fvar, 
     groups=fvar, 
     data = mydf, layout = c(1,10,2), type = c("g", "h"), 
     col = c("darkolivegreen","purple"), lwd = 4, as.table=TRUE) 

बढ़ाया layout आदेश दो पृष्ठों देता है।

वैकल्पिक रूप से, एक साइड-बाई-साइड लेआउट अच्छा हो सकता है:

library(latticeExtra) 
useOuterStrips(xyplot(yvar ~ pos|factor(grp)*factor(chr), 
         groups=grp, 
         col=c("darkolivegreen","purple"), 
         data = mydf, layout = c(2,10), type = c("g", "h"), 
         lwd = 4, as.table=TRUE))