R ggplot2-如何将比例标签添加到堆叠比例条形图？
我创建了一个分组堆叠比例条形图，如下所示：R ggplot2-如何将比例标签添加到堆叠比例条形图？,r,ggplot2,geom-bar,geom-text,R,Ggplot2,Geom Bar,Geom Text,我创建了一个分组堆叠比例条形图，如下所示： df借助于ggstatsplot软件包，这是很简单的- #数据 df在ggstatsplot软件包的帮助下，这是很简单的- #数据 df带管道和通常情况： library(tidyverse) df %>% group_by(version) %>% mutate(label = gsub('^[0](\\.\\d{1,2}).*', '\\1', amount / sum(amount))) %>% ungroup()
df借助于ggstatsplot
软件包，这是很简单的-
#数据
df在ggstatsplot
软件包的帮助下，这是很简单的-
#数据
df带管道和通常情况：
library(tidyverse)
df %>%
group_by(version) %>%
mutate(label = gsub('^[0](\\.\\d{1,2}).*', '\\1', amount / sum(amount))) %>%
ungroup() %>%
ggplot(aes(x = version, y = amount, fill = result, label = label, vjust = 2)) +
geom_col(position = "fill", alpha = .5) +
geom_text(position = 'fill') +
scale_fill_brewer(palette = 'Set1') +
ggthemes::theme_tufte() +
theme(axis.title.x = element_blank(), axis.ticks = element_blank(),
legend.title = element_blank())
使用管道和常用设备：
library(tidyverse)
df %>%
group_by(version) %>%
mutate(label = gsub('^[0](\\.\\d{1,2}).*', '\\1', amount / sum(amount))) %>%
ungroup() %>%
ggplot(aes(x = version, y = amount, fill = result, label = label, vjust = 2)) +
geom_col(position = "fill", alpha = .5) +
geom_text(position = 'fill') +
scale_fill_brewer(palette = 'Set1') +
ggthemes::theme_tufte() +
theme(axis.title.x = element_blank(), axis.ticks = element_blank(),
legend.title = element_blank())