[问题类型]:
程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
[软件熟悉度]:
使用者(已经有用R 做过不少作品)
[问题叙述]:
我目前想要透过ggplot绘制圆饼图，上网看了很多范例
但是发现套用到我的档案上时，在图上绘制百分比时会出现错误
好像是当有较大百分比位数时，会有一些错误，想要请各位帮忙~
[程式范例]:
#以下为stackoverflow范例
#https://stackoverflow.com/questions/45657990
library(dplyr)
library(ggplot2)
data <-
data.frame(a=c("a1","a1","a2","a3","a1","a2","a3","a4",
"a2","a1","a5","a4","a3"),b=1:13)
data <- data %>%
group_by(a) %>%
count() %>%
ungroup() %>%
mutate(per=`n`/sum(`n`)) %>%
arrange(per)
data$label <- scales::percent(data$per)
ggplot(data=data)+
geom_bar(aes(x="", y=per, fill=a), stat="identity", width = 1)+
coord_polar("y", start=0)+
theme_void()+
geom_text(aes(x=1, y = cumsum(per) - per/2, label=label))
#在这个范例中，程式是正常显示的
# https://imgur.com/85FnFOr
#但是当我将某一比例加大时，画图就出现错误
library(dplyr)
library(ggplot2)
data <-
data.frame(a=c("a1","a1","a2","a3","a1","a2","a3","a4",
"a2","a1","a5","a4",rep("a3",20)),b=1:32)
data <- data %>%
group_by(a) %>%
count() %>%
ungroup() %>%
mutate(per=`n`/sum(`n`)) %>%
arrange(per)
data$label <- scales::percent(data$per)
ggplot(data=data)+
geom_bar(aes(x="", y=per, fill=a), stat="identity", width = 1)+
coord_polar("y", start=0)+
theme_void()+
geom_text(aes(x=1, y = cumsum(per) - per/2, label=label))
#https://imgur.com/7BHUOuq
[环境叙述]:
R version 3.4.4 (2018-03-15)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)
dplyr_0.7.4
ggplot2_2.2.1
[关键字]:
ggplot , piechart , 圆饼图