R中的半彩色箱线图
是否有本地R箱线图函数为顶部和底部框生成不同颜色的箱线图?大概是这样的: 以下是我提出的函数:R中的半彩色箱线图,r,colors,plot,visualization,boxplot,R,Colors,Plot,Visualization,Boxplot,是否有本地R箱线图函数为顶部和底部框生成不同颜色的箱线图?大概是这样的: 以下是我提出的函数: h.boxplot <- function(..., col.top='orange', col.bottom='yellow', col.scheme='none'){ cols = c(col.top, col.bottom) if(col.scheme != 'none'){ cs = list(blue=c('#0071c1', '#3198ff'), g
h.boxplot <- function(..., col.top='orange', col.bottom='yellow', col.scheme='none'){
cols = c(col.top, col.bottom)
if(col.scheme != 'none'){
cs = list(blue=c('#0071c1', '#3198ff'), green=c('#008001', '#99cc00'), yellow=c('#ffcc00', '#cc9900'))
stopifnot(col.scheme %in% names(cs))
cols = cs[[col.scheme]]
}
bx<-boxplot(..., col = "white", lty=1, boxlwd=0.00001)
n = length(bx$names)
rect(1:n-.4, bx$stats[2,], 1:n+.4, bx$stats[3,], col=cols[2], border=NA)
rect(1:n-.4, bx$stats[3,], 1:n+.4, bx$stats[4,], col=cols[1], border=NA)
return(bx)
}
# Examples
data = list(A=1:10, B=20:50)
h.boxplot(data, col.scheme='green', outline=F, frame=F)
h.boxplot(data, col.scheme='blue', outline=F, frame=F)
h.boxplot在基本boxplot
函数上没有可以设置的参数来获得该行为,但是您可以通过在绘图上绘制不同颜色的矩形来模拟它。比如说
bx<-boxplot(count ~ spray, data = InsectSprays, col = "lightgray")
rect(1:6-.4, bx$stats[2,], 1:6+.4, bx$stats[3,], col="orange")
rect(1:6-.4, bx$stats[3,], 1:6+.4, bx$stats[4,], col="yellow")
bxI正是按照这些思路思考的!非常感谢。我将很快为其他人发布我的功能。