R中有两个类别的堆叠的小号

Question

我正在尝试在R中创建一个堆叠的Barplot，以可视化两组的差异。

我的数据集看起来像这样：

用户	我希望user
ABC	男性
DEF	女性
ghi	女性
XYZ	女性
JKL	男性
ABC	男性
XYZ	男性XYZ
XYZ	女性，

在X轴上，计数或百分比<< Y轴上的代码> a ，a的类别是堆栈，填充或不同的组。

编辑：

ggplot(data, aes(x=User, fill = A)) + 
  geom_bar(position = "fill") + 
  scale_fill_brewer(palette = "BrBG") + 
  labs(y = "Percent") 

有没有办法显示堆栈上的百分位标签？

Answer 1

您可以先计算百分比，然后使用这些值在geom_text中添加为标签。

library(tidyverse)

df %>%
  count(User, A) %>%
  group_by(User) %>%
  mutate(pct = n / sum(n)) %>%
  ggplot(aes(x = User, y = pct, fill = A)) +
  geom_col(width = 0.7) +
  geom_text(aes(label = paste0(round(pct * 100), '%')),
            position = position_stack(vjust = 0.5)) +
  scale_fill_brewer(palette = "BrBG") + 
  labs(y = "Percent")

输出

​

df <- structure(list(A = c("ABC", "DEF", "GHI", "XYZ", "JKL", "ABC", 
"XYZ", "XYZ"), User = c("Male", "Female", "Female", "Female", 
"Male", "Male", "Male", "Female")), class = "data.frame", row.names = c(NA, 
-8L))

Answer 2

您可以尝试

library(ggplot2)
library(dplyr)
df %>%
  group_by(User) %>%
  count(A) %>%
  ggplot(aes(x = User, y = n, fill = A)) +
  geom_col()