更改顏色中線 ggplot geom_boxplot()

Question

我想改變geom_boxplot()中線的顏色。 我已經看過了，但找不到辦法。 我已經在這里發布了我正在使用的 R 代碼，但我真的需要一個關於如何更改顏色的參考。

ggplot(invitro2) +
  geom_boxplot(aes(x = reorder(CANCER_TYPE,tmedian), y = GeoMedian_IC50)) +
  xlab("") +  
  geom_point(aes(x = reorder(CANCER_TYPE,tmedian), y = GeoMedian_IC50)) +
  theme_bw() +
  scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x),
                labels = trans_format("log10", math_format(10^.x))) +
  annotation_logticks(sides="l")   +  
  theme(axis.text.x=element_text(angle=45,size=10,hjust=1),
        panel.grid.major = element_blank()) 

Answer 1

您可以使用繪圖的細節來推導出中線所在位置的坐標，然后使用geom_segment添加顏色。

library(ggplot2)

p <- ggplot(mtcars, aes(factor(am), mpg)) + geom_boxplot()

dat <- ggplot_build(p)$data[[1]]

p + geom_segment(data=dat, aes(x=xmin, xend=xmax, 
                               y=middle, yend=middle), colour="red", size=2)

還不得不增加線的size ，使其覆蓋原來的黑色中線