[問題類型]:
程式諮詢(我想用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 , 圓餅圖