[英]floating pie() in plotrix package in R (adjusting the opening & closing pattern)
[英]floating.pie in plotrix in R
我正在使用R。我的最终目标是在县一级获得明尼苏达州的GIS地图,并且在每个县中都将有一个饼图,代表所雇用的小学,中学和高等教育人员的比例。
我有一个包含就业统计数据的数据框。 每行是一个县,各列是第一,第二和第三部门的就业情况。 前十行看起来像这样。
[,1] [,2] [,3]
[1,] 0 94 2208
[2,] 0 45568 65678
[3,] 0 3124 6262
[4,] 48 3908 11278
[5,] 0 6949 9779
[6,] 0 283 992
[7,] 0 7797 27130
[8,] 15 4471 6710
[9,] 51 1973 5768
[10,] 44 14188 23040
为了把一个饼图,我用floating.pie
的功能plotrix
包和遍历所有的县。 ( mn_county
是我的GIS shapefile,但您不必为此担心)
floating.pie(coordinates(mn_county)[s, ][1], coordinates(mn_county)[s, ][2], c(pri, sec,tert), radius = rad
, col = c(rgb(255, 0, 0, max = 255, alpha = 125, names = "red50"), rgb(0, 255, 0, max = 255, alpha = 125, names = "green50"), rgb(0, 0, 255, max = 255, alpha = 125, names = "blue50")))
对于饼图,我希望第一职业为红色,第二职业为绿色,第三职业为蓝色。 问题是,当第一职业为0时,R将第二职业阴影为红色,将第三职业阴影为绿色。 如何防止这种情况发生?
原则上,您可以自己修改floating.pie
函数(不包括零,因为它们破坏了一些内部计算;应该可以解决此问题)或向软件包维护者发送请求...
一个简单的技巧是为所有类别添加一个较小的值(足够小以至于您永远不会在视觉上注意到差异); 或者,您可以只使用min(pri,eps)
...
dat <- data.frame(pri=c(0,10,20),
sec=c(10,20,30),
tert=c(10,10,10))
n <- 3
library(plotrix)
plot(c(0,n+1),c(0,n+1),axes=FALSE,ann=FALSE,type="n")
eps <- 0.001
for (i in 1:n) {
with(dat[i,],floating.pie(i,i,c(pri+eps,sec+eps,tert+eps),
col=c("red","green","blue"),radius=0.5))
}
其他不请自来的建议:
RColorBrewer
包...
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.