R ggplot2 堆叠条形图按列值归一化

Question

我有以下数据框 t :

name type total
a    1    20
a    1    20
a    3    20
a    2    20
a    3    20
b    1    25
b    2    25
c    5    35
c    5    35
c    6    35
c    1    35

total对于具有相同 name 的所有条目都是相同的.我想用 type 绘制堆叠条形图在 x axis 上和 count of name由 total 归一化在 y axis 上.我通过以下方式绘制了非标准化图:

ggplot(t, aes(type,fill= name))+geom_bar() + geom_bar(position="fill")

如何绘制标准化条形图？即 type = 1 y 轴值为 2/20对于 a和 1/25对于 b和 1/35对于 c ...

我的尝试没有成功:

ggplot(t, aes(type, ..count../t$total[1],fill= name))+geom_bar() + geom_bar(position="fill")

Answer 1

读入数据

d <- read.table(header = TRUE, text =
'name type total
a    1    20
a    1    20
a    3    20
a    2    20
a    3    20
b    1    25
b    2    25
c    5    35
c    5    35
c    6    35
c    1    35')

将它称为 t 是个坏主意，因为那是转置函数的名称。

计算分数

library(dplyr)
d2 <- d %>% 
  group_by(name, type) %>% 
  summarize(frac = n() / first(total))

使用 dplyr 包更容易做到这一点。

制作情节

ggplot(d2, aes(type, frac, fill = name)) +
  geom_bar(stat = 'identity')

结果