我在下面有一個餅圖，我想在每個餅圖之間留出額外的空白并粘貼每個餅圖中每個字母的值（A=25）。如何解決這個問題？提前謝謝了。
library(ggplot2)
library(dplyr)
# Create Data
data <- data.frame(
group=LETTERS[1:5],
value=c(13,7,9,21,2)
)
# Compute the position of labels
data <- data %>%
arrange(desc(group)) %>%
mutate(prop = value / sum(data$value) *100) %>%
mutate(ypos = cumsum(prop)- 0.5*prop )
# Basic piechart
ggplot(data, aes(x="", y=prop, fill=group))
geom_bar(stat="identity", width=10, color="white")
coord_polar("y", start=0)
theme_void()
theme(legend.position="none")
geom_text(aes(y = ypos, label = round(prop,2) ), color = "white", size=4)
scale_fill_brewer(palette="Set1")
uj5u.com熱心網友回復：
你可以這樣做：
ggplot(data, aes(x="", y=prop, fill=group))
geom_bar(stat="identity", width=10, size = 3, color = "white")
coord_polar("y", start=0)
theme_void()
theme(legend.position="none")
geom_text(aes(y = ypos, label = paste(group, round(prop,2), sep = "\n")),
color = "white", size=4, nudge_x = 3)
scale_fill_brewer(palette="Set1")
uj5u.com熱心網友回復：
也許基礎 R 中的 3D 餅圖可以使用設定為 true 的爆炸引數，例如
pie3D(num_data, labels = num_data, explode = 0.25)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/476666.html