フォーマットを変更せずにバープロットからバーを選択的にドロップする

Question

2つのプロット間でバーの幅やアライメントを変更せずに、最初のプロットからもう1つの列を削除したいとします。どんな助けでも大歓迎です。

theme_min <- 
    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") 
) 

# display 2 of 4 columns 
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_y_continuous(limits = c(0,35)) + 
    theme_min + 
    scale_x_discrete(drop = FALSE) 

# display 1 of 4 columns 
mtcars %>% 
    mutate(
    am = factor(am, labels = c("auto", "manual")), 
    vs = factor(vs, labels = c("V", "S")) 
) %>% 
    filter(
    am == "auto", 
    vs == "V" 
) %>% 
    ggplot(aes(x = am, y = mpg, fill = vs)) + 
    geom_col(position = position_dodge()) + 
    scale_y_continuous(limits = c(0,35)) + 
    theme_min + 
    scale_x_discrete(drop = FALSE) + 
    scale_fill_discrete(drop = FALSE) 

Answer 1

私は選択それはあなたがドロップしたい列（複数可）のためにゼロに等しいので、結果変数を変異させることによって、列をドロップすることができました。

mtcars %>% 
    mutate(
    am = factor(am, labels = c("auto", "manual")), 
    vs = factor(vs, labels = c("V", "S")) 
) %>% 
    filter(am == "auto") %>% 
    # mutate to drop bar while maintaining bar formatting 
    mutate(mpg = ifelse(vs == "S", mpg == 0, mpg)) %>% 
    ggplot(aes(x = am, y = mpg, fill = vs)) + 
    geom_col(position = position_dodge()) + 
    scale_y_continuous(limits = c(0,35)) + 
    scale_x_discrete(drop = FALSE)