使用 R ggplot2 的多个饼图
Multiple pie charts with R ggplot2
我之前使用小平面环绕法制作了多个折线图,如下所示,但由于某些原因,我在饼图上做同样的事情时运气不佳;
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
我想要 3 个饼图使用 ggplot2
在 "CONFIDENCE" 上进行分面环绕或网格化
谢谢
如果有人想制作多个折线图,以下是对我有用的方法:
ggplot(test, aes(x=POPULATION, y=AMOUNT, group=CONFIDENCE, color=CONFIDENCE)) + geom_line() + facet_wrap(~ CONFIDENCE)
对于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())
结果:
我之前使用小平面环绕法制作了多个折线图,如下所示,但由于某些原因,我在饼图上做同样的事情时运气不佳;
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
我想要 3 个饼图使用 ggplot2
在 "CONFIDENCE" 上进行分面环绕或网格化谢谢
如果有人想制作多个折线图,以下是对我有用的方法:
ggplot(test, aes(x=POPULATION, y=AMOUNT, group=CONFIDENCE, color=CONFIDENCE)) + geom_line() + facet_wrap(~ CONFIDENCE)
对于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())
结果: