R 中的 xyplot，一个面板中有多个图，点阵

Question

我有一个按以下方式构建的测试数据集：

d <- seq.Date(as.Date("2000-01-01"), as.Date("2000-01-08"), by=1)
df1 <- data.frame(time = d, type = 'type1', value = runif(length(d)))
df2 <- data.frame(time = d, type = 'group1', value = runif(length(d)))
df3 <- data.frame(time = d, type = 'group2', value = runif(length(d)))
df4 <- data.frame(time = d, type = 'pen', value = runif(length(d)))
df <- rbind(df1, df2, df3, df4)

我想使用xyplot函数在点阵中绘制数据，其中面板显示在一列中。 我可以执行以下操作：

xyplot(value~time | type, df, layout=c(1, length(levels(df$type))))

这样我有 4 行（我有很多类型）。 但是，实际上我想在同一个面板中用不同的颜色绘制 group1 和 group2（这样我只有 3 行）。 有人可以帮我解决这个问题吗？

Answer 1

您可以通过暂时忽略“group1”和“group2”中的数字为所有“group”记录创建一个面板。 这就是gsub()在下面的代码中所做的——它将“组”类型中的所有数字替换为"" ，从而创建一个包含三个面板而不是四个面板的条件图。

现在，剩下要做的就是为所有levels(df$type)定义不同的颜色。 names()操作不是强制性的； 它只是有助于维护不同因子水平的概览，特别是它们的顺序。

# colors
clr = c("black", "black", "orange", "black")
names(clr) = levels(df$type) # for clarification only

# grouped scatterplot
xyplot(value~time | gsub("group[[:digit:]]", "group", type), df, group = type
       , layout = c(1, length(levels(df$type)) - 1), col = clr, cex = 1.2, pch = 20)