r - 更改 gg_miss_var 中的线条颜色

Question

我正在尝试更改 gg_miss_var 中每个方面的线条颜色。

例如使用数据airquality

#Load data
data("airquality")

#Load libraries
library(ggplot2)

#Create missing data plot using gg plot
gg_miss_var(airquality, Month, show_pct = TRUE) + ylim(0, 100) +
  theme(
    panel.background = element_rect(fill = "white"),
    panel.border = element_blank()) +
  scale_fill_manual(
    values = c("forestgreen", "pink", "blue","yellow","red"))

我得到:

但这并没有改变颜色，有什么想法吗？

Answer 1

仅供引用:虽然开箱即用的选项在自定义时既快速又容易，但可能值得使用 ggplot2 从头开始​​绘制数据 where for the data您可以使用 naniar::miss_var_summery 进行准备:

data("airquality")

library(ggplot2)
library(naniar)

df_miss <- airquality %>% 
  dplyr::group_by(Month) %>% 
  miss_var_summary() |> 
  dplyr::mutate(variable = reorder(variable, pct_miss))

ggplot(df_miss, aes(pct_miss, variable, color = factor(Month))) +
  geom_point() +
  geom_segment(aes(yend = variable, xend = 0)) +
  scale_color_manual(values = c("forestgreen", "pink", "blue","yellow","red"), guide = "none") +
  xlim(0, 100) +
  facet_wrap(~Month) +
  theme_minimal() +
  theme(
    panel.background = element_rect(fill = "white"),
    panel.border = element_blank())