R 中独立组的多层圆环图

Question

我看到下面的图表图片，想重新创建类似的东西。 我的代码如下，我如何创建一个多层甜甜圈 plot 来显示每组的百分比？

data <- data.frame(Specialty = c("Neuro-oncologist", "Neurosurgeon", "Radiation-oncologist"),Percentage = c(44.2, 69.6, 17.2))

Answer 1

当然有更好的方法来做到这一点，但是如果您将数据分成三个独立的数据帧，将三个数据集显示在堆叠条中，最后将坐标更改为极坐标可以获得：

代码：

data1 <- data.frame(Specialty = c("Neuro-oncologist", ""),Percentage = c(44.2, 100-44.2))
data2 <- data.frame(Specialty = c("Neurosurgeon", ""),Percentage = c(69.6, 100-69.6))
data3 <- data.frame(Specialty = c("Radiation-oncologist", ""),Percentage = c(17.2, 100-17.2))
  
plt <- ggplot() + geom_col(aes(x = 2, y = Percentage, fill = Specialty), 
                           data = data1, color = "white") + 
  geom_text(aes(label = Percentage, x= 2, y = Percentage), data = data1, size = 3) +
  geom_col(aes(x = 3, y = Percentage, fill = Specialty), 
           data = data2, color = "white") +
  geom_text(aes(label = Percentage, x= 3, y = Percentage), data = data2, size = 3) +
  geom_col(aes(x = 4, y = Percentage, fill = Specialty), 
           data = data3, color = "white") +
  geom_text(aes(label = Percentage, x= 4, y = Percentage), data = data3, size = 3) +
  xlim(0, 4.5) + labs(x = NULL, y = NULL) + 
  theme(axis.ticks=element_blank(),
        axis.text=element_blank(),
        axis.title=element_blank())

plt + coord_polar(theta = "y")