使用 ggplot2 在不同图形中绘制组

Question

考虑以下示例：

require(ggplot2)

aa <- data.frame(date = runif(3,1,100),Change = runif(3,1,100))

bb <- data.frame(date = runif(3,1,100),Change = runif(3,1,100))

dd <- rbind(aa,bb)
dd$site <- c("aa","aa","aa","bb","bb","bb")

是否可以在同一文档中生成 2 个数字，其中图 1 应该是那些对应于网站 == 'aa' 的网站，第二个数字应该是那些对应于网站 == [= 的网站19=]?

我试图在循环中生成图形，但 pdf 中似乎没有绘制任何内容：

nams <- ("aa","bb")

pdf("plots.pdf",width = 6,height = 6, paper='A4',family = "Times")
for (i in 1:2){
  dd2 <- dd[dd$site == nams[i],]

  ggplot(dd,aes(date,Change)) +
    geom_line()
}
dev.off()

Answer 1

你必须使用 print 和 plot 来输出它：

for (i in 1:2){
  dd2 <- dd[dd$site == nams[i],]

  print(ggplot(dd, aes(date, Change)) +
    geom_line()
  )
}

使用 ggplot2 在不同图形中绘制组

plot groups in different figures with ggplot2

r

ggplot2