1

我正在尝试在 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")
  )

显示 2 个条形图 显示所有条形图

4

1 回答 1

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")
  )
于 2017-05-17T19:41:58.173 回答