R语言ggplot2如何绘制cyl分组下3个disp值的并排柱状图

原代码运行后每个分面仅显示1个柱形，核心原因：

• x轴直接映射cyl字段，搭配按cyl分面的逻辑后，每个分面内筛选得到的3条数据x轴取值完全相同
• geom_col()默认对同一x坐标的y值做累加计算，最终每个分面仅展示1个高度为3个disp总和的柱，无法呈现3个独立柱形

library(dplyr)
library(ggplot2)

mtcars %>%
  # 将数据集行名（对应车型名称）转为普通列，用于区分同组内不同条目
  tibble::rownames_to_column("car_model") %>%
  # 按cyl分组，筛选disp降序排名前3的记录
  arrange(desc(disp)) %>%
  group_by(cyl) %>%
  slice_head(n = 3) %>%
  # 生成组内排名作为x轴分类变量，保证同组3条数据有独立x位置
  mutate(rank_in_group = row_number()) %>%
  ggplot(aes(x = factor(rank_in_group), y = disp, fill = car_model)) +
  geom_col(width = 0.7) +
  # 按cyl分面，释放x轴刻度避免冗余刻度显示
  facet_wrap(. ~ cyl, scales = "free_x") +
  labs(
    x = "组内disp降序排名",
    y = "排量（disp）",
    fill = "车型"
  )

运行代码后每个cyl分面内会展示3个并排的独立柱形，不同填充色对应不同车型，柱高为该车型对应的disp值，符合预期展示要求。如果不需要区分车型，可去掉fill映射，仅保留x为组内排名、y为disp的映射即可。

内容的提问来源于stack exchange，提问作者Ramakrishna S