带有多个虚拟变量的饼图

Question

让我们假设有4个人和3个组（A，B，C），其中1表示它属于X组，在其他情况下，它属于0组。假设我们有一个这样的数据库：

# A  B  C
1 0  0  1
2 0  1  0
3 1  0  0
4 1  0  0

我试图做的是一个包含每个组的饼图。

我正在尝试的代码

ggplot(data, aes(x="", y=data$A)) +
  geom_bar(stat="identity", width=1) +
  coord_polar("y", start=0)

但是，它仅绘制一个变量的饼图。 谢谢

Answer 1

我认为这段代码可以执行您想要的绘图。在制作情节之前，我使用For k = 1 To k = LastRow 进行了一些重新编码。

For k = 1 To LastRow

Answer 2

我相信您需要先调整df：

df  <- data.frame(ID = c(1, 2, 3, 4),  A = c(0, 0, 1, 1), B = c(0, 1, 0, 0), C = c(1, 0, 0, 0)) 

df  %>% 
      pivot_longer(2:4, names_to = "group", values_to = "value") %>% 
      ggplot(aes(x="", y=value, fill=group))+
      geom_bar(width = 1, stat = "identity")+
      coord_polar("y", start=0)