所以我有一个简化形式的数据框,它看起来像这样。
|期间|AA|
|第一天 | 1 |
|第一天 | 0 |
|第一天 | 2 |
|第一天 | 2 |
|第2天| 0 |
|第2天| 1 |
|第3天| 1 |
|第3天| 2 |
|第3天| 0 | .
.
.
.
|第99天| 0 |
现在我想为“AA”绘制一个图,其中“Period”是 x 轴,“0-100”是 y 轴,绘制每个“0”、“1”、“的总频率2" 的百分比,就像一个百分比堆积条形图。
我为单列 AA 尝试了类似的方法,但它不能帮助我实现我想要的。
library("ggplot2")
library("dplyr")
Count=1
data <- aggregate(Count ~ ., data, sum)
data <- group_by(data, Period) %>%
mutate(percent = Count / sum(Count)) %>%
as.data.frame()
ggplot(data,
aes(x = Period,
y = percent,
fill = AA)) +
geom_bar(position = "fill", stat = "identity")
答案 0 :(得分:1)
假设您的数据集是这样的:
data <- data.frame(period = rep(paste(rep("Day",5) , 1:5 , sep="") , each=3) ,
AA = sample(0:2 , 15 , replace=T),
BB = sample(0:2 , 15 , replace=T),
CC = sample(0:2 , 15 , replace=T))
然后你可以把它变成你需要的形状。在这里,我从句点中提取数字,以便稍后制作一个不错的数字轴。
data <- data %>% group_by(period) %>%
summarise(across(1:3 , sum)) %>%
gather(class, value , 2:4) %>%
mutate(period = str_extract(period , "\\d+"))
然后你可以像这样得到你的图表。如果您希望将其作为条形图而不是柱形图,请添加 + coord_flip()
。
ggplot(data , aes(period , value , fill=class))+geom_col(position = "fill")
如果您需要在绘图前计算百分比,那么...
data <- data %>% group_by(period) %>%
summarise(across(1:3 , sum)) %>%
gather(class, value , 2:4) %>%
group_by(period) %>%
mutate(value = value/sum(value)) %>%
mutate(period = str_extract(period , "\\d+"))
答案 1 :(得分:1)
我认为这将解决您的问题
df <- data.frame(
stringsAsFactors = FALSE,
Period = c("Day1","Day1","Day1","Day1",
"Day2","Day2","Day3","Day3","Day3","Day3","Day4",
"Day4","Day4","Day4"),
AA = c(1L, 0L, 2L, 2L, 0L, 1L, 1L, 2L, 0L, 0L, 1L, 2L, 2L, 2L)
)
suppressMessages(library(tidyverse))
df %>% count(Period, AA) %>%
ggplot() +
geom_col(aes(x= Period, y = n, fill= as.character(AA)), position = 'fill')
由 reprex package (v2.0.0) 于 2021 年 5 月 1 日创建