r - R格子绘制具有特定颜色的多条线

Question

我有两个问题难以解决。首先，当我使用 lattice 进行多列矩阵图时xyplot，我发现所有点都是连接的。如何获得单独的断开线路？

x<-cbind(rnorm(10),rnorm(10))
xyplot(x~1:nrow(x),type="l")

其次，我无法弄清楚如何使一条线比另一条线粗。例如，假设我想要第 1 列，那么第 1 列的线将比第 2 列的线粗。

Answer 1

格子绘图范式，就像它之后的 ggplot2 一样，期望数据在数据帧中是长格式的：

dfrm <- data.frame( y=c(rnorm(10),rnorm(10)),
                    x=1:10, 
                    grp=rep(c("a","b"),each=10))
xyplot(y~x, group=grp, type="l", data=dfrm, col=c("red","blue"))

Answer 2

这可能不是最优雅的解决方案，但它可以完成工作：

x<-cbind(rnorm(10),rnorm(10))
plot1<-xyplot(x[,1]~1:nrow(x),type="l",col="red",lwd=3)
plot2<-xyplot(x[,2]~1:nrow(x),type="l")

library(latticeExtra)
plot1+plot2

我假设您希望根据观察次数绘制 V1 和 V2。否则你确实只有一条线。您可以根据口味调整轴和标签。