r - 使用 R 填充圆圈中的 9 个区域

Question

寻找一种方法来填充该圆的每个不同部分，用于可视化视网膜不同部分的厚度。使用 Excel 中的数据，如果变量为 1，则不同部分将突出显示(如果变量为 空，则不会突出显示)。

library(plotrix)
plot(1,1,col="white",bty="n", xaxt="n", yaxt="n", xlab="1",ann=FALSE)
draw.circle(1,1,0.3)
draw.circle(1,1,.15)
draw.circle(1,1,.05)
arrows(0.77787,0.77787, 0.962644661,0.962644661,length=0)
arrows(1.037355339,1.037355339, 1.22213,1.22213, length=0)
arrows(0.77787,1.22213,0.962644661,1.037355339,length=0)
arrows(1.037355339,0.962644661,1.22213,0.77787,length=0)

Answer 1

您可以使用 pie 和 draw.circle 的组合来完成此操作:

library(plotrix)
library(RColorBrewer)

cols <- brewer.pal(9, 'Set3')

pie(rep(1, 4), col=cols[1:4], init.angle=45, radius=1, labels='')
par(new=TRUE)
pie(rep(1, 4), col=cols[5:8], init.angle=45, radius=0.5, labels='')
draw.circle(0, 0, 0.166, col=cols[9])

根据需要设置col以填充(或不填充)各个部分，例如:

pie(rep(1, 4), col=c(0, 0, 'gray80', 0), init.angle=45, radius=1, labels='')
par(new=TRUE)
pie(rep(1, 4), col=rep(0, 4), init.angle=45, radius=0.5, labels='')
draw.circle(0, 0, 0.166, col='gray80')