为lattice中的不同面板/分面指定颜色

Question

为lattice中的不同面板/分面指定颜色

5

我的数据如下：

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 是深橄榄绿色，但chr10是紫色。然后再次交替设置深橄榄绿色和紫色以此类推。

(2) 我想要使用反向顺序的图表，也就是说，2chr9 应该在底部。

谢谢。

- jon

我认为在lattice世界中，子图被称为“面板”，而在ggplot世界中则被称为“分面”... - Ben Bolker

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Ben Bolker · Accepted Answer

使用as.table=TRUE可以改变面板的顺序，使用groups（以及扩展的col向量）可以改变颜色。编辑：调整因子水平的顺序。

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命令可以得到两页。

enter image description here

另外，一种并排布局可能更好：

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))

enter image description here