您可以添加更多“数据”来创建与网格对齐的其他多边形。
我为附加数据设置了 pcol=NA ,这样我们就可以得到没有点的多边形。
我做了一些看似合理的颜色选择,但请注意,多边形全部重叠,因此颜色会相加。
## Your data with additional polygons aligned to grid
data <- data.frame(rbind(rep(8,14),
rep(0,14),
rep(4,14), rep(6,14), rep(8,14),
c(3,4,4,4,3,4,4,4,4,3,3,3,3,3)))
## Your color - to avoid repetition
COL1 = rgb(0.2,0.5,0.5,0.5)
## Plot
radarchart(data,
axistype=1 ,
pcol=c(NA, NA, NA, COL1),
pfcol=c("#FF000022", "#FF990022","#FFFF0022", COL1),
plwd=4,
cglcol="grey",
cglty=1,
axislabcol="grey",
caxislabels=seq(0,8,2), cglwd=0.8,
vlcex=0.8)
Update:基于对答案的回应
如果您希望绘制区域的内部是彩色的而外部是白色的,则可以添加内圆而不是外圆。
data <- data.frame(rbind(rep(8,14),
rep(0,14),
c(3,4,4,4,3,4,4,4,4,3,3,3,3,3),
rep(2,14), rep(0,14)))
## Plot
radarchart(data,
axistype=1 ,
pcol=c("#FF990088", NA,NA),
pfcol=c("#FF990044","#FFFF0044","#FF000066"),
plwd=4,
cglcol="grey",
cglty=1,
axislabcol="grey",
caxislabels=seq(0,8,2), cglwd=0.8,
vlcex=0.8)