使用xyplot在R中绘制多个数据集

Question

我想在此图上绘制多个数据集，但我不知道如何。 我需要将t ， u ， v ， w放在已经起作用的xyplot 。

library(lattice)
x <- rnorm(250, 5, .5)
y <- rnorm(250, 5, .4)

t <- rnorm(200, 6, .7)
u <- rnorm(200, 6, .6)

v <- rnorm(150, 7, .9)
w <- rnorm(150, 7, .8)

xyplot(y ~ x, xlab="", ylab="",
   par.settings = list(axis.line = list(col="transparent")),
   panel = function(x, y,t,u,...) { 
     panel.xyplot(x, y, col=3, pch=16)
     panel.rug(x, y, col=8, x.units = rep("snpc", 2), y.units = rep("snpc", 
2), ...)})

Answer 1

如果要绘制由（x，y），（t，u）和＆（v，w）定义坐标的点的散点图，则以下方法适用于您：

df <- data.frame(V1 = c(x, t, v), 
                 V2 = c(y, u, w), 
                 V3 = c(rep("xy", length(x)), rep("tu", length(t)), rep("vw", length(v))))

xyplot(V1 ~ V2, group = V3, data = df, 
       xlab="", ylab="",
       par.settings = list(axis.line = list(col="transparent")),
       panel = function(x, y, groups...) {
         panel.xyplot(x, y, 
                      col = c("red", "blue", "green"), # change this if you want other colours
                      pch=16)
         panel.rug(x, y, col = 8, x.units = rep("snpc", 2), y.units = rep("snpc", 2))
       })

如果您希望通过其他方式将它们绘制到图表中，请在问题中进行说明。