如何使用 ggplot2 在 R 中创建图来绘制百分比堆积条形图？ [复制]

Question

这个问题在这里已经有了答案：

为多个变量制作堆叠条 plot - R 中的 ggplot2 （3 个答案）

5 个月前关闭。

这是我的数据框：

> mode of transportation       distance<1km      distance2km-5km    distance>5km 
     Car,truck,van                 4                  45               53 
     Bus                           3                  13               24 
     Subway,elevated,rail          0                  34               67

我想要百分比堆积条形图，y 是运输方式，x 是频率。 在每个条中，通过使用不同的颜色来区分距离的不同。

谢谢！

Answer 1

这是一种潜在的解决方案：

library(tidyverse)
df <- tribble(~"mode of transportation",       ~"distance<1km",    ~"distance2km-5km",    ~"distance>5km", 
"Car,truck,van",                 4,                  45,               53, 
"Bus",                           3,                  13,               24, 
"Subway,elevated,rail",          0,                  34,               67)

df %>% 
  pivot_longer(cols = -c(`mode of transportation`),
                         values_to = "Frequency",
                         names_to = "Distance") %>%
  mutate(Distance = factor(Distance,
                           levels = c("distance<1km",
                                      "distance2km-5km",
                                      "distance>5km"))) %>% 
  ggplot(aes(fill = Distance, y = Frequency, x = `mode of transportation`)) +
  geom_col(position = "fill") +
  scale_y_continuous(labels = scales::percent) +
  coord_flip()