箱型图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

箱型图怎么让箱子里的颜色按比例填充成渐变色啊，这是我原本的代码
ggplot(data=Good, aes(x=factor(month),y=count,fill="orange"))+
   geom_boxplot(aes(group=Good$month),outlier.colour="red")+
   labs(x="month",y="Days")+
   scale_y_continuous(limits=c(0, 40))

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

顶一下

两种方法，供参考

1. library(tidyverse)
   
2. library(RColorBrewer)
   
3. 
   
4. dt = data.frame(y = c(rnorm(100),
   
5.                       rexp(100),
   
6.                       rgamma(100,2,3),
   
7.                       rlnorm(100),
   
8.                       rweibull(100, 3,2)),
   
9.                 x = rep(paste0('v',1:5),
   
10.                         rep(100,5)))
    
11. 
    
12. 
    
13. coul <- brewer.pal(3, "PuOr")
    
14. 
    
15. #===== base
    
16. 
    
17. cols <- colorRampPalette(coul)(1000)
    
18. 
    
19. dat = boxplot(y~x, data=dt, pch=16)
    
20. 
    
21. for(i in 1:length(unique(dt$x))){
    
22.   yy=seq(dat$stats[2,i], dat$stats[4,i], len=1000)
    
23.   xx=c(i-0.4,i+0.4)
    
24.   ymean = dat$stats[3,i]
    
25.   segments(xx[1],yy,xx[2],yy, col = cols)
    
26.   segments(xx[1],ymean,xx[2],ymean, col = 'black',lwd=2)
    
27.   
    
28. }
    
29. 
    
30. 
    
31. #======= ggplot
    
32. 
    
33. p = ggplot(data = dt,aes(x=x,y=y)) +
    
34.   geom_boxplot()
    
35. cols <- colorRampPalette(coul)(50)
    
36. for (i in 1:length(unique(dt$x))) {
    
37.   yy=seq(dat$stats[2,i], dat$stats[4,i], len=50)
    
38.   xx=c(i-0.4,i+0.4)
    
39.   ymean = dat$stats[3,i]
    
40.   for (j in 1:50) {
    
41.     p = p+geom_segment(x=xx[1],y=yy[j],xend=xx[2], yend=yy[j],
    
42.                        colour=cols[j],lwd=3)
    
43.   }
    
44. }
    
45. 
    
46. p+theme_bw()

复制代码