我想将每个参与者的响应时间分为小组图。我已经能够按会话和主题进行分离,但是我想在面板上针对显示刺激的每个方向绘制单独的线条。 (我还需要每个面板的回归线和总体均值线,但这些组件没有问题)。
在点阵中,“行”代码无法识别分成几组的代码。此外,键符号是与期望的颜色不同的颜色。如果有人知道如何修改一个或两个,那就太好了。我已经尝试了许多不同的更改,包括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)
如您所见,所有线都已连接,包括“分组”方向之间的线。此外,方向不会用颜色分开。