在堆积条形图上按列显示百分比

我正在尝试绘制一个堆积条形图，显示列中每个组的相对百分比。

这是我的问题的说明，使用默认的 mpg 数据集：

mpg %>%
  ggplot(aes(x=manufacturer, group=class)) +
  geom_bar(aes(fill=class), stat="count") +
  geom_text(aes(label=scales::percent(..prop..)),
    stat="count",
    position=position_stack(vjust=0.5))

And this is the output:

我的问题是这个输出显示每个的百分比class相对于总计，而不是每个项目中的相对百分比制造商.

例如，我希望第一列（奥迪）显示棕色（紧凑型）的 83.3% (15/18) 和绿色（中型）的 16.6% (3/18)。

我在这里发现了类似的问题：如何在 ggplot2 中绘制堆叠条形图，显示基于组的百分比？

但我想知道在 ggplot2 中是否有更简单的方法来做到这一点，特别是因为我的实际数据集在最终将数据传输到 ggplot2 之前使用一堆 dplyr 管道来处理数据。

如果我将您的问题与您提供的链接进行比较，区别在于链接本身“计数”。我就是这么做的。我不确定这是否适合您的真实数据。

library(ggplot2)
library(dplyr)

mpg %>%
  mutate(manufacturer = as.factor(manufacturer),
         class = as.factor(class)) %>%
  group_by(manufacturer, class) %>%
  summarise(count_class = n()) %>%
  group_by(manufacturer) %>%
  mutate(count_man = sum(count_class)) %>%
  mutate(percent = count_class / count_man * 100) %>%
  ggplot() +
  geom_bar(aes(x = manufacturer,
               y = count_man, 
               group = class,
               fill = class), 
           stat = "identity") +
  geom_text(aes(x = manufacturer,
                y = count_man,
                label = sprintf("%0.1f%%", percent)),
            position = position_stack(vjust = 0.5))

根据评论进行编辑：

我犯了一个错误，选择了错误的列y

library(ggplot2)
library(dplyr)

mpg %>%
  mutate(manufacturer = as.factor(manufacturer),
         class = as.factor(class)) %>%
  group_by(manufacturer, class) %>%
  summarise(count_class = n()) %>%
  group_by(manufacturer) %>%
  mutate(count_man = sum(count_class)) %>%
  mutate(percent = count_class / count_man * 100) %>%
  ungroup() %>%
  ggplot(aes(x = manufacturer,
             y = count_class,
             group = class)) +
  geom_bar(aes(fill = class), 
           stat = "identity") +
  geom_text(aes(label = sprintf("%0.1f%%", percent)),
            position = position_stack(vjust = 0.5))