如何使用 lapply 在 ggplots 上绘制多个图

Question

library(ggplot2)
x<-c(1,2,3,4,5)
a<-c(3,8,4,7,6)
b<-c(2,9,4,8,5)

df1 <- data.frame(x, a, b)

x<-c(1,2,3,4,5)
a<-c(6,5,9,4,1)
b<-c(9,5,8,6,2)

df2 <- data.frame(x, a, b)

df.lst <- list(df1, df2)

plotdata <- function(x) {
  ggplot(data = x, aes(x=x, y=a, color="blue")) + 
    geom_point() +
    geom_line()
}

lapply(df.lst, plotdata)

我有一个数据框列表，我试图在同一个 ggplot 上绘制相同的列。我尝试使用上面的代码，但它似乎只返回一个情节。

应该有 2 个 ggplots。一个绘制了“a”列数据，另一个绘制了列表中两个数据框的“b”列数据。

我查看了很多示例，看来这应该可行。

Answer 1

它们都被绘制。如果您使用的是 RStudio，请单击后退箭头在图之间切换。如果您想一起看到它们，请执行以下操作：

library(gridExtra)
do.call(grid.arrange,lapply(df.lst, plotdata))

Answer 2

如果你想让它们在同一个情节上，很简单：

ggplot(data = df1, aes(x=x, y=a), color="blue") + 
  geom_point() +
  geom_line() +
  geom_line(data = df2, aes(x=x, y=a), color="red") +
  geom_point(data = df2, aes(x=x, y=a), color="red")

编辑：如果您有其中几个，最好将它们组合成一个大数据集，同时保留原始 df 以用于美学。示例：

df.lst <- list(df1, df2)

# put an identifier so that you know which table the data came from after rbind
for(i in 1:length(df.lst)){
  df.lst[[i]]$df_num <- i
}
big_df <- do.call(rbind,df.lst) # you could also use `rbindlist` from `data.table`

# now use the identifier for the coloring in your plot
ggplot(data = big_df, aes(x=x, y=a, color=as.factor(df_num))) + 
    geom_point() +
    geom_line() + scale_color_discrete(name="which df did I come from?")
    #if you wanted to specify the colors for each df, see ?scale_color_manual instead