如何在带 % 标签的填充条的多面 ggplot 中显示 'total'?
how to show 'total' in faceted ggplot for filled bar with % label?
我有一个像这样的填充条形图
library(dplyr)
library(ggplot2)
df <- data.frame(facet=c(rep(1,6),rep(2,6)),type=rep(c('a','b','c'),2), subtype=c('x','y'), value=c(10,20,30,10,50,70))
df %>% group_by(type, facet) %>%
mutate(pct=value/sum(value)) %>%
mutate(pos=cumsum(pct) - (0.5 * pct)) %>%
ggplot(aes(type, pct, fill=subtype)) + geom_bar(stat='identity') +
geom_text(aes(label=paste0(round(100*pct, 0), '%'),y=pos)) + facet_grid(.~facet, margins=TRUE)
如果不在分面中显示总计,它就可以工作。但是由于用于显示 % 数据标签的方法(我想知道是否有更好的方法),整个方面变得一团糟。有什么建议吗?谢谢。
我正确地排列了标签并事先定义了边距图。我想这就是您期望的输出。我不知道是否有办法用 facet_grid(., margin = TRUE)
.
来实现
df <- data.frame(facet=c(rep(1,6),rep(2,6)),type=rep(c('a','b','c'),2),
subtype=c('x','y'), value=runif(12, 0, 100))
df1 <- df %>%
arrange(desc(subtype)) %>%
mutate(facet = factor(facet, levels = c("1", "2", "(all)"))) %>%
group_by(type, facet) %>%
mutate(pct=value/sum(value),
pos=cumsum(pct) - (0.5 * pct))
df2 <- df1 %>%
group_by(type, subtype) %>%
summarise(facet = factor("(all)", levels = c("1", "2", "(all)")),
pct = sum(pct)/2,
pos = sum(pos/2))
bind_rows(df1, df2) %>%
ggplot(aes(type, pct, fill=subtype)) +
geom_bar(stat='identity', position = "stack") +
geom_text(aes(label=paste0(round(100*pct, 0), '%'),y=pos)) +
facet_grid(.~facet)
我有一个像这样的填充条形图
library(dplyr)
library(ggplot2)
df <- data.frame(facet=c(rep(1,6),rep(2,6)),type=rep(c('a','b','c'),2), subtype=c('x','y'), value=c(10,20,30,10,50,70))
df %>% group_by(type, facet) %>%
mutate(pct=value/sum(value)) %>%
mutate(pos=cumsum(pct) - (0.5 * pct)) %>%
ggplot(aes(type, pct, fill=subtype)) + geom_bar(stat='identity') +
geom_text(aes(label=paste0(round(100*pct, 0), '%'),y=pos)) + facet_grid(.~facet, margins=TRUE)
如果不在分面中显示总计,它就可以工作。但是由于用于显示 % 数据标签的方法(我想知道是否有更好的方法),整个方面变得一团糟。有什么建议吗?谢谢。
我正确地排列了标签并事先定义了边距图。我想这就是您期望的输出。我不知道是否有办法用 facet_grid(., margin = TRUE)
.
df <- data.frame(facet=c(rep(1,6),rep(2,6)),type=rep(c('a','b','c'),2),
subtype=c('x','y'), value=runif(12, 0, 100))
df1 <- df %>%
arrange(desc(subtype)) %>%
mutate(facet = factor(facet, levels = c("1", "2", "(all)"))) %>%
group_by(type, facet) %>%
mutate(pct=value/sum(value),
pos=cumsum(pct) - (0.5 * pct))
df2 <- df1 %>%
group_by(type, subtype) %>%
summarise(facet = factor("(all)", levels = c("1", "2", "(all)")),
pct = sum(pct)/2,
pos = sum(pos/2))
bind_rows(df1, df2) %>%
ggplot(aes(type, pct, fill=subtype)) +
geom_bar(stat='identity', position = "stack") +
geom_text(aes(label=paste0(round(100*pct, 0), '%'),y=pos)) +
facet_grid(.~facet)