Раздельные группы по цвету в Панелях, Решетка в R Studio - PullRequest
Новая
       12

Раздельные группы по цвету в Панелях, Решетка в R Studio

0 голосов
/ 26 июня 2019

Я хочу сделать групповые графики времени ответа каждого участника разделенными на группы. Я был в состоянии разделить сессию и тему, но я хочу нарисовать отдельные линии на панелях для каждого направления, в котором были показаны стимулы. (Мне также нужна линия регрессии и общая средняя линия на каждой панели, но у меня нет проблем с этими компонентами).

В решетке код для разделения на группы не распознается кодом «линий». Кроме того, символы клавиш имеют цвет, отличный от желаемого. Если кто-нибудь знает, как изменить один или оба, это было бы здорово. Я пробовал несколько различных изменений, включая panel.superpose, но не смог заставить его работать. Вот воспроизводимый пример: 

library(vegan)
library(dplyr)
ANT$block=factor(ANT$block)
ANT$rtLOG=log(ANT$rt)

Я сгруппировал статистику 

ANT_stats_bysub_bydirection_bytime= ANT %>%
  group_by(subnum, direction, block) %>%
  summarise_at(("rtLOG"), funs(mean, sd), na.rm=TRUE)

mypanel=function(x,y,h, k){
  panel.xyplot(x, y, lty=1, type=c('p', 'l'))
  panel.lmline(x, y, lty=3, lwd=1, col="purple")
  panel.grid(h=-1, v=-1)
  panel.abline(mean(h), lty=2, col="red")
  llines(x, y, col=c("blue", "green")) 
}

colors=c("blue", "green")
keylist=list(space="top", col=c("blue", "green", "red", "purple"), columns=1, text=c("Left", "Right", "Mean", "Regression"))
xyplot(mean~block|subnum, groups=direction, data=ANT_stats_bysub_bydirection_bytime, 
       h=ANT_stats$mean, layout=c(5,4), aspect=1.5, 
       main="Subject Response Time, by Direction and Session", xlab="Session", 
       ylab="Mean Response Time", panel=mypanel, auto.key=keylist)

График вывода

Как видите, все линии соединены, включая линию между "сгруппированными" направлениями. Кроме того, направления не разделены по цвету.

...