我有一个如下所示的数据框:
+--------+-----------+-----+
| make | model | cnt |
+--------+-----------+-----+
| toyota | camry | 10 |
| toyota | corolla | 4 |
| honda | city | 8 |
| honda | accord | 13 |
| jeep | compass | 3 |
| jeep | wrangler | 5 |
| jeep | renegade | 1 |
| accura | x1 | 2 |
| accura | x3 | 1 |
+--------+-----------+-----+
我需要创建一个饼图(是的,真的)显示每个品牌的百分比份额。
目前我正在做以下工作。
library(ggplot2)
library(dplyr)
df <- data.frame(Make=c('toyota','toyota','honda','honda','jeep','jeep','jeep','accura','accura'),
Model=c('camry','corolla','city','accord','compass', 'wrangler','renegade','x1', 'x3'),
Cnt=c(10, 4, 8, 13, 3, 5, 1, 2, 1))
dfc <- df %>%
group_by(Make) %>%
summarise(volume = sum(Cnt)) %>%
mutate(share=volume/sum(volume)*100.0) %>%
arrange(desc(volume))
bp <- ggplot(dfc[c(1:10),], aes(x="", y= share, fill=Make)) +
geom_bar(width = 1, stat = "identity")
pie <- bp + coord_polar("y")
pie
这给了我以下漂亮的饼图。
但是我需要使用以下方式增强它 - 就像下面的图像。
- 添加百分比标签
- 按
share
的降序排序饼图 - 删除类似 0/100、25 的标签
- 添加标题
geom_text
来得到你想要的内容和位置。谷歌搜索“piechart r” -> 图片 -> 点击你喜欢的饼图图片。那里可能有你可以使用的代码。 - Andre Elrico