一次建立一条ggplot进行演示

Question

假设我有以下图表：

abstract

我正在寻找一种通用策略（或者也许是一个库），该策略一次“建立” ggplots。因此，输出将包括两个图像，一个图像仅带有红线，另一个图像具有红色和蓝线，将用作例如幻灯片演示文稿中的相邻幻灯片。

Answer 1

关键是仅对铜进行过滤，然后在两者中都使用ylim，以保持从一个图形到下一个图形的过渡。

# copper only
df %>%
  filter(product == "copper") %>%
  ggplot() +
  geom_line(aes(y = export, x = year, colour = product),
            stat = "identity") +
  ylim(0, 16000)

# both
df %>%
  ggplot() +
  geom_line(aes(y = export, x = year, colour = product),
            stat = "identity") +
  ylim(0, 16000)