我正試圖制作一個帶有百分比的餅圖。為了做到這一點，我寫了以下幾行代碼
library（ggplot2）
df <- data.frame()
group = c("Male"/span>, "Female"),
值 = c(15000。 10000））
head（df）
p < - ggplot(df, aes(x=""。 y = value。 fill=group))
geom_bar(width = 1。 stat = "identity") = "identity") coord_polar("y"。 start=0）
require(scales)
p scale_fill_brewer（"Blues"） blank_theme
geom_text(aes(y = value/2 c(0。 cumsum(value)[/span>-length(value)]）。
標簽 = percent(value/100））。 大小=5）
但不幸的是，這幾行代碼并沒有給我提供百分比數字。因此，誰能幫助我解決這個問題，并獲得男性60%和女性40%的真實百分比。
uj5u.com熱心網友回復：
只使用sum來計算兩個性別。例如。percent(1000 / sum(df$value))將回傳"4%"。
library(tidyverse)
library(scales)
#>
#> Attaching package: 'scales'
#> 以下物件被掩蓋在'package:purrr'中：
#>
#> 丟棄
#> 以下物件被屏蔽在'package:readr'中：
#>
#> col_factor
df <- data.frame()
group = c("Male"/span>。 "Female"),
值 = c(15000。 10000）
)
df
#> 組值
#> 1 男 15000
#> 2 女 10000
ggplot(df, aes(x = "", y = value。 填充=組））
geom_bar(width = 1。 統計= "identity"）
coord_polar("y"。 開始= 0）
scale_fill_brewer("Blues")
theme_void()
geom_text(aes()
y =值 / 2 c（0。 cumsum(value)[/span>-length(value)]）。
標簽 = percent(value / sum（value））
), size = 5）
創建于2021-09-22，由reprex包（v2.0.1）
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/334040.html
標籤：
上一篇：用不同的過濾器連接到同一個表