R 使用mapply以列名作为参数生成绘图

感兴趣的数据位于

mymeanDT

DT <- data.table(yearmonth = as.yearmon(sample(seq(as.Date('2012/07/01'), as.Date('2016/02/28'),by="day"), 5000, replace = TRUE)),
             mydummy = as.factor(rbinom(5000, 1, .4)), X = runif(5000, 0, 1), Y = rnorm(5000, 20, 5), Z = runif(5000, 4, 6))

mymeanDT <- DT[, lapply(.SD, function(x) mean(x, na.rm = TRUE)), by = .(mydummy, yearmonth), .SDcols = c("X", "Y", "Z")]

我想使用标题中的列名。因此，我尝试通过

mapply

my_mapply_plots <- mapply(function(mycol, mynames) 
    ggplot(mymeanDT, aes(x = yearmonth,y = mycol)) +
    geom_line(aes(linetype = mydummy, color = mydummy)) + scale_x_yearmon() 
    + xlab("") + ylab("") +
    theme(plot.title = element_text(size = 14, hjust = -0.03)) +
    scale_linetype_manual(values=c("longdash", "solid"), breaks=c(0, 1), 
         labels=c("N", "Y")) +
    scale_color_manual(values=c("#701B45", "#007FAE"), breaks=c(0, 1), 
         labels=c("N", "Y")) +
    ggtitle(paste("Some", mycolnames, sep = " ")),
  mycol = mymeanDT[, mycolnames, with = FALSE], mynames = mycolnames)

---

任何帮助都将不胜感激

我认为您应该使用

lappy

在

mycolnames

-向量上循环，以获得所需的绘图。使用：

lapply(mycolnames, function(column) {
  ggplot(data = mymeanDT,
         aes(x = yearmonth, y = mymeanDT[[ column ]], linetype = mydummy, color = mydummy)) +
    geom_line()  + scale_x_yearmon() +
    ggtitle(paste("Some", column, sep = " "))
})

我会给你3个情节

第一个：

如果要存储该文件，请执行以下操作：

myplots <- lapply(mycolnames, function(column) {
  ggplot(data = mymeanDT,
         aes(x = yearmonth, y = mymeanDT[[ column ]], linetype = mydummy, color = mydummy)) +
    geom_line()  + scale_x_yearmon() +
    ggtitle(paste("Some", column, sep = " "))
})

myplots
            X      Y      Z     
data        List,5 List,5 List,5
layers      List,1 List,1 List,1
scales      ?      ?      ?     
mapping     List,2 List,2 List,2
theme       List,1 List,1 List,1
coordinates ?      ?      ?     
facet       ?      ?      ?     
plot_env    ?      ?      ?     
labels      List,6 List,6 List,6

lapply(mycolnames, function(column) {
  ggplot(data = mymeanDT,
         aes(x = yearmonth, y = mymeanDT[[ column ]], linetype = mydummy, color = mydummy)) +
    geom_line()  + scale_x_yearmon() +
    ggtitle(paste("Some", column, sep = " "))
})

myplots <- lapply(mycolnames, function(column) {
  ggplot(data = mymeanDT,
         aes(x = yearmonth, y = mymeanDT[[ column ]], linetype = mydummy, color = mydummy)) +
    geom_line()  + scale_x_yearmon() +
    ggtitle(paste("Some", column, sep = " "))
})