如何显示非常高的ggplot？

Question

例如，在尝试显示具有一百行的多面图时：

library(ggplot2)
set.seed(111)
tmp_d <- data.frame(group = rep(1:100, each = 5), 
                    x = rep(1:5, times = 100),
                    y = runif(1:500))
## looks like
#   group x         y
# 1     1 1 0.5929813
# 2     1 2 0.7264811
# 3     1 3 0.3704220
# 4     1 4 0.5149238
# 5     1 5 0.3776632
# 6     2 1 0.4183373
# ...

ggplot(tmp_d, aes(x,y)) +
    geom_point() +
    facet_wrap(~ group, ncol = 1)

我在 Rstudio 的绘图窗口中弄得一团糟，无法放大或滚动：

不方便的解决方法涉及ggsave 或knitr：

使用ggsave:

ggsave('tmp_20170104_long_ggplot.png', p, height = 100, limitsize = F)

使用knitr:

将绘图嵌入到knitr 代码块中，fig.height 具有较大的任意值：

---
title: "Test plot of tall ggplot2"

output:
    html_document
---

```{r, fig.height = 100}
library(ggplot2)
set.seed(111)
tmp_d <- data.frame(group = rep(1:100, each = 5), 
                    x = rep(1:5, times = 100),
                    y = runif(1:500))

ggplot(tmp_d, aes(x,y)) +
    geom_point() +
    facet_wrap(~ group, ncol = 1)
```

两个问题：

1. 如何轻松显示此类图？
2. 如何确定每种解决方法的高度值？

Answer 1

1- 试试dev.new(width=3, height=10, noRStudioGD = TRUE)。如果您的绘图对于屏幕来说太高，您可以将其绘制在 pdf 文件上并使用 pdf 查看器进行滚动，

library(ggplot2)
set.seed(111)
tmp_d <- data.frame(group = rep(1:100, each = 5), 
                    x = rep(1:5, times = 100),
                    y = runif(1:500))

p <- ggplot(tmp_d, aes(x,y)) +
  geom_point() +
  facet_wrap(~ group, ncol = 1)

nc <- length(unique(ggplot_build(p)[["data"]][[1]][["PANEL"]]))

ggsave("tall.pdf", p, width=7, height = nc * 7 + 2, limitsize = FALSE)

2- 如果您有 N 排面板并且每个面板的高度应为 H 英寸，则 N x H 加上一些空间用于放置轴等应该可以正常工作。