r - 如何为同一页上的多个绘图使用单个 xlabel 和 ylabel

Question

我正在使用下面给出的代码使用 ggplot 在同一页面上绘制多个图形。我不想让每个图表都有自己的 xlabel、ylabel、标题和图例描述，我只希望每个页面都有一个这样的图表。我试图找到解决方案，但无济于事。有人可以让我知道，或指向相关主题吗？谢谢。

plots <- dlply(dacc, .(SIC), function(x){
      ggplot(x, aes(x = PER)) + 
      geom_line(aes(y = MEAN, group = NLEAD, color = NLEADMEAN)) +
      geom_line(aes(y = MED, group = NLEAD, color = NLEADMED)) +
      xlab("(Total Asset Percentile Cutoff To Define Big Firms)") +
      ylab("Mean Absolute Discretioary Accrual For Different Groups") +
      ggtitle(paste("Mean ADA Across Groups For SIC = ", unique(x$SIC))) +
      ylim(0, ymax/2)
    })

  ml <- do.call(marrangeGrob, c(plots, list(nrow = 2, ncol = 2)));
  ggsave("my_plots.pdf", ml, height = 7, width = 13, units = "in");

编辑:

ggplot(dacc, aes(x = PER)) + 
  geom_line(aes(y = MEAN, group = NLEAD, color = NLEADMEAN)) +
  geom_line(aes(y = MED, group = NLEAD, color = NLEADMED)) +
  xlab("(Total Asset Percentile Cutoff To Define Big Firms)") +
  ylab("Mean Absolute Discretioary Accrual For Different Groups") +
  ggtitle(paste("Mean ADA Across Groups For SIC = ", unique(x$SIC))) +
  ylim(0, ymax/2) +
  facet_wrap(~SIC,nrow=2)

这看起来确实更好，但我面临着这个问题的多个问题。(1) 在终端上，我可以看到仅显示 xlab 和 ylab 的图表。但是我该如何保存图表呢？(2) 我有大约 50 个 SIC，所以 50 个 grpahs，所以我假设当我保存时，假设 nrow = 10，我应该能够在每一页上看到 xlab 和 ylab。

Answer 1

如评论所述，您应该在此处使用分面功能。例如:

facet_wrap(~SIC,nrow=2)

你的代码变成这样:

  ggplot(dacc, aes(x = PER)) + 
  geom_line(aes(y = MEAN, group = NLEAD, color = NLEADMEAN)) +
  geom_line(aes(y = MED, group = NLEAD, color = NLEADMED)) +
  xlab("(Total Asset Percentile Cutoff To Define Big Firms)") +
  ylab("Mean Absolute Discretioary Accrual For Different Groups") +
  ggtitle(paste("Mean ADA Across Groups For SIC = ", unique(x$SIC))) +
  ylim(0, ymax/2) +
  facet_wrap(~SIC,nrow=2)