逐渐显示 ioslides 中的条形图条

Question

我正在尝试在 Rstudio ioslides 演示文稿中逐步显示或构建我的情节中的条形。 如何在一张幻灯片中隐藏第 3 条和第 4 条然后在下一张幻灯片中显示完整图之前显示下面的图？ 保持两张幻灯片中的所有文本和条的间距很重要.

我发现这种技术在演示文稿中很有用，但目前只能在 powerpoint/keynote 中通过在我希望隐藏的条上放置一个白框来做到这一点。

library(tidyverse)

mtcars %>% 
  mutate(
    am = factor(am, labels = c("auto", "manual")),
    vs = factor(vs, labels = c("V", "S"))
  ) %>% 
  ggplot(aes(x = am, y = mpg, fill = vs)) + 
  geom_col(position = position_dodge()) +
  theme(
    panel.grid.minor = element_blank(),
    panel.grid.major = element_blank(),
    panel.background = element_blank(), 
    panel.border = element_blank(),
    axis.line = element_line(colour = "black")
  )

Answer 1

在你的第一张幻灯片上试试这个。它删除了手动传输的数据，但为列（scale_x_discrete）留下了空间。然后为第二张幻灯片做你的原始文件，但保留在 scale_y_continuous 中（我将其添加到两张幻灯片中，以便在两张幻灯片中保留所需的高度）。

mtcars %>% 
  mutate(
    am = factor(am, labels = c("auto", "manual")),
    vs = factor(vs, labels = c("V", "S"))
  ) %>% filter(am == "auto") %>%
  ggplot(aes(x = am, y = mpg, fill = vs)) + 
  geom_col(position = position_dodge()) +
  scale_x_discrete(drop=FALSE) +
  scale_y_continuous(limits = c(0,35)) + 
  theme(
    panel.grid.minor = element_blank(),
    panel.grid.major = element_blank(),
    panel.background = element_blank(), 
    panel.border = element_blank(),
    axis.line = element_line(colour = "black")
  )