彩箱線圖根據自己的GGPLOT2平均值

Question

讓我們考慮與ggplot箱線圖：

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

我想這些箱子的充滿素色依賴於MPG的平均值，例如從藍色到紅色。我已經和各種團隊打過交道，但是用「mean（mpg）」總是返回全局的意思。

Answer 1

試試這個（與每個缸組的圓潤平均值填補框）：

mtcars$mean <- as.factor(round(ave(mtcars$mpg, as.factor(mtcars$cyl), FUN=mean))) 
ggplot(mtcars, aes(factor(cyl), mpg, fill=mean)) + geom_boxplot() 

Answer 2

您可以創建一個新的列，然後用於填充。

library(dplyr) 
library(ggplot2) 
mtcars%>% 
    group_by(cyl)%>% 
    mutate(mean_cyl=mean(mpg))%>% 
    ggplot(aes(factor(cyl),mpg))+geom_boxplot(aes(fill=mean_cyl))+scale_fill_gradient(low="blue",high = "red")