Question

在提交in this question的类似情况下，我从单个数据框输出多个时间序列图表，我无法想出为每个图表添加唯一的图表标题....

我的数据可以找到here

我接近这个如下

gw <- read.csv("gw_cbp.csv")

require(ggplot2)
require(plyr)
require(gridExtra)

pl <- dlply(gw, .(Well.ID), function(dat) {
  ggplot(data = dat, aes(group = 1, x = Date, y = Benzene), ) + geom_line() + 
    geom_point() + xlab("Date") + ylab("mg/Kg") + 
    geom_smooth(method = "lm") + ggtitle(Well.ID)
})

ml <- do.call(marrangeGrob, c(pl, list(nrow = 32, ncol = 1)))
ggsave("benzene.pdf", ml, height = 72, width = 11, units = "in", limitsize = F)

这里

+ ggtitle(Well.ID)

找不到个人Well.ID正在ddply函数中使用...

任何人都可以告诉我如何在这种情况下调用独特的Well.ID吗？

谢谢ZR

Answer 1

尝试

+ ggtitle(dat$Well.ID)

ggtitle的参数不会在您传递给ggplot()的data.frame上下文中进行评估，因此您需要明确该值的来源。

将标题添加到多个绘图输出

1 个答案: