我正在尝试使用以下数据集
绘制饼图dt <- data.frame(name= c("A", "B", "C"),
one = sample(1:10, 3),
two= sample(1:10, 3),
three =sample(1:10, 3))
当然数据不整齐,所以我使用
以纵向形式重新排列数据集library(dplyr)
dt <- dt %>% gather("letter")
colnames(dt)[2] <- "number"
我完全可以绘制条形图
library(ggplot2)
ggplot(dt, aes(x=letter, y=value, fill=number)) +
geom_bar(stat="identity")
但是当我应用coord_polar()变换时,我无法使切片看起来均匀,也不能使饼图总和达到100%
ggplot(dt, aes(x=letter, y=value, fill=number)) +
geom_bar(stat="identity") +
coord_polar(theta = "x")