好吧,这很老套,但是像这样用r呢?
,
获取色阶
ramp
blue
ramp
blueviolet
ramp
violet
ramp
violetred
ramp
red
ramp
orangered
函数来绘制不同大小的饼图
pie.fun
pie(rep(1,12), border = "white", radius = rad, labels=NA,
col=c(orangered[pos], red[pos], violetred[pos],violet[pos],blueviolet[pos],blue[pos],rep("#FFFFFF",6)))
par(new=T)
}
绘制饼图
pie.fun(rad=1,pos=1)
pie.fun(rad=0.8,pos=2)
pie.fun(rad=0.6,pos=3)
pie.fun(rad=0.4,pos=4)
画最后一个白色的
pie(rep(1,12), border = "white", radius = 0.2, labels = NA,
col=c(rep("#FFFFFF",12)))
添加带标签的箭头
arrows(0.2, -0.1, 1, -0.1, xpd = TR