R: указание цвета для разных граней / панелей в решетке - PullRequest
Новая
       10

R: указание цвета для разных граней / панелей в решетке

5 голосов
/ 15 декабря 2011

Мои данные следующие: 

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 внизу.

Спасибо

enter image description here

1 Ответ

6 голосов
/ 15 декабря 2011

Используйте as.table=TRUE для изменения порядка панелей и groups (вместе с расширенным col vec) для изменения colo (u) rs.

edit : скорректированный порядок уровней факторов 

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

...