带有R ggplot2的多个饼图

Question

我之前已经使用 facet wrap 和下面的表格制作了多个折线图，但由于某种原因，我在饼图上没有太多运气；

test <- data.frame(CONFIDENCE = c(rep("Mconfid", 3), rep("Hconfid", 3), rep("SHconfid", 3)),
                 POPULATION = c(rep(c("African","East_Asian","European"),3)),
                 AMOUNT = c(0.06, 0.23, 0.71, 0.00, 0.40, 0.60, 0.00, 0.10, 0.90))
test

  CONFIDENCE POPULATION AMOUNT
1    Mconfid    African   0.06
2    Mconfid East_Asian   0.23
3    Mconfid   European   0.71
4    Hconfid    African   0.00
5    Hconfid East_Asian   0.40
6    Hconfid   European   0.60
7   SHconfid    African   0.00
8   SHconfid East_Asian   0.10
9   SHconfid   European   0.90

我想使用 ggplot2 将 3 个饼图在“CONFIDENCE”上进行分面换行或网格

谢谢

如果有人想做多个折线图，这对我有用：

ggplot(test, aes(x=POPULATION, y=AMOUNT, group=CONFIDENCE, color=CONFIDENCE)) + geom_line() + facet_wrap(~ CONFIDENCE)

Answer 1

对于ggplot 中的饼图，您需要将x 设置为""，然后添加coord_polar（主题只是为了删除值）。

ggplot(data, aes(x="", y=AMOUNT, group=POPULATION, color=POPULATION, fill=POPULATION)) +
  geom_bar(width = 1, stat = "identity") +
  coord_polar("y", start=0) + facet_wrap(~ CONFIDENCE) +
  theme(axis.text = element_blank(),
        axis.ticks = element_blank(),
        panel.grid  = element_blank())

结果：