在ggplot的條形圖中隱藏NA，空條

我有帶有 2 個分類變數的資料框，并通過 ggplot 構建了條形圖。唯一的問題是 Category: "Canada" 和 Category: "USA" 有不同的分類變數，這就是為什么在 y 軸上，正如你在加拿大看到的 J,G 和美國的 F,B 是空白的。

你能告訴我如何避免這個問題嗎？另外，我想在加拿大和美國訂購按正值降序的酒吧

    library(tidyverse)
df <- data.frame (Origin = c("Canada", "Canada","Canada", "Canada","Canada", "Canada","USA","USA","USA","USA","USA","USA"),
                  Model = c("A","B","C","D","E","F","A","G","C","D","E","J"),
                  poschange = c(60, 45,34,56, 65, 44,40, 55, 35, 24,34,12),
                  negchange = c(-5,-2,-0.5,-2,-1,-0.05,-1,-3,-0.1,-3,-1.5,-0.9))

df2 <- df %>% pivot_longer(., cols=c('poschange','negchange'),
                           names_to = 'value_category') %>% 
  mutate(Groups = paste(Origin, Model),
         value_category = factor(value_category, levels = c("negchange", "poschange")))

my_color = c("A" = '#7fc97f', "B" = '#beaed4', "C" = '#fdc086', 
             "D" = '#ffff99', "E" = '#386cb0', "F" = '#f0027f', "white" = "white","G"="black","J"="blue")

ggplot(df2, aes(value, Model, 
                fill = ifelse(value_category == "negchange", "white", Model), 
                color = Model))   
  geom_col(position = "dodge")  
  scale_fill_manual(values = my_color, breaks = df2$Model)  
  scale_color_manual(values = my_color, breaks = df2$Model)  
  labs(fill = "Model")  
  facet_grid(Origin ~ ., switch = "y")  
  theme(axis.text.x = element_text(angle = 90),
        strip.background = element_rect(fill = "white"),
        strip.placement = "outside",
        strip.text.y.left = element_text(angle = 0),
        panel.spacing = unit(0, "lines"))

uj5u.com熱心網友回復：

添加scales = "free_y和reorder_within：

library(tidyverse)
df <- data.frame (Origin = c("Canada", "Canada","Canada", "Canada","Canada", "Canada","USA","USA","USA","USA","USA","USA"),
                  Model = c("A","B","C","D","E","F","A","G","C","D","E","J"),
                  poschange = c(60, 45,34,56, 65, 44,40, 55, 35, 24,34,12),
                  negchange = c(-5,-2,-0.5,-2,-1,-0.05,-1,-3,-0.1,-3,-1.5,-0.9))

df2 <- df %>% pivot_longer(., cols=c('poschange','negchange'),
                           names_to = 'value_category') %>% 
  mutate(Groups = paste(Origin, Model),
         value_category = factor(value_category, levels = c("negchange", "poschange")),
         )

my_color = c("A" = '#7fc97f', "B" = '#beaed4', "C" = '#fdc086', 
             "D" = '#ffff99', "E" = '#386cb0', "F" = '#f0027f', "white" = "white","G"="black","J"="blue")

ggplot(df2, aes(value, tidytext::reorder_within(Model, value, Origin), 
                fill = ifelse(value_category == "negchange", "white", Model), 
                color = Model))   
  geom_col(position = "dodge")  
  scale_fill_manual(values = my_color, breaks = df2$Model)  
  scale_color_manual(values = my_color, breaks = df2$Model)  
  tidytext::scale_y_reordered()  
  labs(fill = "Model")  
  facet_grid(Origin ~ ., switch = "y", scales = "free_y")  
  theme(axis.text.x = element_text(angle = 90),
        strip.background = element_rect(fill = "white"),
        strip.placement = "outside",
        strip.text.y.left = element_text(angle = 0),
        panel.spacing = unit(0, "lines"))

^{由reprex 包于 2022-05-03 創建(v2.0.1)}

標籤：r ggplot2 tidyverse 数据可视化 条形图

上一篇：在QQ圖中繪制紅色十分位數stat_qq()或geom_qq()

下一篇：問題創建倍數ggplot與資料框串列，存盤在繪圖串列中