ioslidesでバープロットの棒グラフを徐々に表示

Question

Rstudio ioslidesプレゼンテーション内の私のプロットで棒グラフを徐々に表示または作成しようとしています。 次のスライドで完全なプロットを表示する前に、1つのスライドで3番目と4番目のバーを隠しているときに、下のプロットを表示するにはどうすればよいですか？ 2つのスライド間でテキストとバーの間隔をすべて維持することが重要です。

このテクニックはプレゼンテーションでは便利ですが、私は隠すことを望むバーの上に白いボックスを置いて、これを現在の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）は残ります。次に、元の2番目のスライドを作成しますが、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") 
)