使用facet_wrap()僅更改一個面板的點顏色

我正在嘗試使用facet_wrap()并希望將點和誤差條的顏色更改為“ses”的紅色，但僅適用于面板 3。到目前為止，我還沒有完全弄清楚如何成功地做到這一點. 有任何想法嗎？

這是一些（非常簡短的）示例代碼和資料：

代碼：

ggplot(d, aes(x = var, y = coef,
              ymin = ci_lower, ymax = ci_upper,
              color = var))  
  geom_point()  
  geom_errorbar(width = .1)  
  facet_wrap(~model, nrow = 1)  
  labs(title = "Model results",
       y = "Coefficient",
       x = "")  
  geom_hline(yintercept = 0, linetype = "solid", color = "black", size = .5)  
  coord_flip()  
  scale_color_manual(values = c("white" = "blue",
                                "score" = "black",
                                "female" = "black",
                                "ses" = "black"))  
  theme_bw(base_size = 12)

資料：

structure(list(var = c("white", "score", "female", "ses", "white", 
"score", "female", "ses", "white", "score", "female", "ses"), 
    coef = c(0.7, 0.5, 0.6, -0.4, 0.2, 1.02, 0.1, -0.1, 0.3, 
    0.4, 0.5, 0.2), ci_lower = c(0.4, 0.05, 0.3, -0.7, -0.1, 
    0.52, -0.2, -0.4, -0.1, 0.1, 0.2, -0.1), ci_upper = c(1, 
    0.9, 0.9, -0.1, 0.5, 1.4, 0.4, 0.2, 0.6, 0.7, 0.8, 0.5), 
    model = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3)), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -12L), spec = structure(list(
    cols = list(var = structure(list(), class = c("collector_character", 
    "collector")), coef = structure(list(), class = c("collector_double", 
    "collector")), ci_lower = structure(list(), class = c("collector_double", 
    "collector")), ci_upper = structure(list(), class = c("collector_double", 
    "collector")), model = structure(list(), class = c("collector_double", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), skip = 1L), class = "col_spec"))

uj5u.com熱心網友回復：

一種選擇是重新編碼您的var列，您可以在其中分配不同的值，var="ses"并model=3允許您在面板 3 中為“ses”分配紅色：

library(ggplot2)

d$color <- ifelse(d$var == "ses" & d$model == 3, "ses_red", d$var)

ggplot(d, aes(x = var, y = coef,
              ymin = ci_lower, ymax = ci_upper,
              color = color))  
  geom_point()  
  geom_errorbar(width = .1)  
  facet_wrap(~model, nrow = 1)  
  labs(title = "Model results",
       y = "Coefficient",
       x = "")  
  geom_hline(yintercept = 0, linetype = "solid", color = "black", size = .5)  
  coord_flip()  
  scale_color_manual(values = c("white" = "blue",
                                "score" = "black",
                                "female" = "black",
                                "ses" = "black",
                                "ses_red" = "red"))  
  theme_bw(base_size = 12)

根據您想要的結果，第二個選項是拆分您的資料集并使用多個圖層：

library(ggplot2)
library(dplyr)

d1 <- d |> 
  filter(!(var == "ses" & model == 3))

d2 <- d |> 
  filter(var == "ses" & model == 3)

ggplot(d1, aes(x = var, y = coef,
              ymin = ci_lower, ymax = ci_upper,
              color = var))  
  geom_point()  
  geom_errorbar(width = .1)  
  geom_point(data = d2, color = "red")  
  geom_errorbar(data = d2, color = "red", width = .1)  
  facet_wrap(~model, nrow = 1)  
  labs(title = "Model results",
       y = "Coefficient",
       x = "")  
  geom_hline(yintercept = 0, linetype = "solid", color = "black", size = .5)  
  coord_flip()  
  scale_color_manual(values = c("white" = "blue",
                                "score" = "black",
                                "female" = "black",
                                "ses" = "black"))  
  theme_bw(base_size = 12)

標籤：r ggplot2 刻面 刻面包装

上一篇：facetwrap中顯著p值的stat_poly_eq()紅色文本

下一篇：Ggplotly破壞facet_wrap()固定比例