x 轴上的百分比堆积条形图

Question

我有一个包含几个因子 coslumns 的数据集，我可以像下面来自 GitHub 的教程一样为每个因子制作一个堆积百分比条形图，但我不想创建 3 个图或使用 facet 功能，而是我喜欢将所有这些列并排在我的 x 轴上。我创建了绘图，但使用几何计数，当我想使用比例时，它变得很困难。 我的数据集列是否可以在 ggplot 的 x 轴上有许多成比例的堆积条形图？

计算每个 cyl & am 类别的百分比

    proportion <- mtcars %>%
        group_by(cyl, am) %>%
        tally() %>%
        group_by(cyl) %>%
        mutate(pct = n / sum(n))

enter image description here

这个函数只完成了一个。但是对 4 列做同样的事情呢？

具有不同变量的图像，例如汽缸、门、汽油类型……所有并排并按相同变量分组，如图片中仅一个图的 x 轴上的 AM。