在ggplot2中循环数据帧

Question

我想使用来自多个不同数据帧的 ggplot 制作一系列图。我打算使用一个列表并迭代列表如下：

libraries <- objects() #make a list of the dataframes we want to graph
for(i in libraries) {
  # create initial plots
  x1 <- qplot(data= i, V1, reorder(V2,V3), color = V3) + coord_flip()
  x2 <- ggplot(i, aes(x=reorder(V2,V3), group=V3, color=V3)) + geom_bar() 
  x3 <- ggplot(i, aes(x=V1, group=V3, color=V3)) + coord_flip() + geom_bar()
}

但是我收到错误消息：

Error: ggplot2 doesn't know how to deal with data of class factor

大概是因为“库”现在是字符变量而不是数据框。有人对如何遍历数据框有其他建议吗？我想我可以将它们与 plyr 合并，然后 ggplot 数据的一个子集，但这似乎增加了更多的工作。

Answer 1

迭代 data.frames（只是定期组织的列表）的常用方法是使用lapply：

 df1 <- data.frame(date = as.Date(10*365*rbeta(100, .5, .1)),group="a")
  df2 <- data.frame(date = as.Date(10*365*rbeta(50, .1, .5)),group="b")
  df3 <- data.frame(date = as.Date(10*365*rbeta(25, 3,3)),group="c")
  dfrmL <- list(df1,df2,df3)

 lapply(dfrmL, NROW)
[[1]]
[1] 100

[[2]]
[1] 50

[[3]]
[1] 25

在生成 ggplot 对象列表的情况下，我想 Hadley 方法将改为使用 llply，但我不是熟练的 plyr 用户，所以让我建议这个完全未经测试的代码模板：

plts <- lapply(dfrmL, function(df) qplot(qplot(data= df, 
                                          V1, reorder(V2,V3), color = V3) + 
                                  coord_flip()
       )  
 # you may need to explicitly print() or plot() the plots as stated in the R-FAQ.    
lapply(plts, print)

Answer 2

一个更完整、可重现的例子可能会帮助我们提出一个更好的方法来实现这一点，但至少我可以建议替换：

libraries <- objects()

有了这个

libraries <- lapply(objects(), FUN = get)

这实际上将构建当前环境中所有对象的列表。但我不知何故怀疑数据框是您环境中的only 对象，所以也许您宁愿使用objects 或ls 获取对象列表，使用grep（或相关函数）根据名称仅查找您的数据帧，然后 get 仅使用 lapply 查找这些数据帧。

最后，您可以按照@Dwin 的描述对它们进行迭代。