用與箱線圖相同的顏色填充異常值 在ggplot R 中填充顏色？

Question

我希望異常值以與箱線圖填充顏色（而不是輪廓）相同的顏色出現。 我嘗試了不同的方法，但都沒有奏效。 任何幫助將非常感激。

ToothGrowth$dose <- as.factor(ToothGrowth$dose)
p <- ggplot(ToothGrowth, aes(x=dose, y=len))+
     geom_boxplot(width=0.3,aes(fill=dose),outlier.colour = NA)+
     geom_point()+
     scale_fill_manual(values=c("firebrick", "royalblue","yellow"))
p

Answer 1

我們可以將outlier.shape設置為“21”，這樣它將繼承填充 colors 和 plot 箱線圖之前的點：

ToothGrowth$dose <- as.factor(ToothGrowth$dose)
ggplot(ToothGrowth, aes(x=dose, y=len))+
  geom_point()+
  geom_boxplot(width=0.3,aes(fill=dose),outlier.shape = 21)+
  scale_fill_manual(values=c("firebrick", "royalblue","yellow"))

它在圖片中幾乎看不到，但劑量 0.5 的異常值是紅色的。

---

編輯還要在框內顯示點：

is_outlier <- function(x) {
  return(x < quantile(x, 0.25) - 1.5 * IQR(x) | x > quantile(x, 0.75) + 1.5 * IQR(x))
}

ToothGrowth %>% 
  group_by(dose) %>% 
  mutate(outlier = ifelse(is_outlier(len), as.numeric(NA), as.numeric(len))) %>% 
ggplot(aes(x=dose, y=len))+
  geom_boxplot(width=0.3,aes(fill=dose),outlier.shape = 21)+
  geom_point(aes(x = dose, y = outlier))+
  scale_fill_manual(values=c("firebrick", "royalblue","yellow"))