迭代 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-objects 列表的情况下,我想哈德利方法将改为使用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)