R语言如何无需手动定位将条形图X轴标签替换为独立小图表

推荐两种无需手动定位的实现方案，均可自动保证小图表与对应条形精准对齐：

方案1：使用ggh4x包自定义坐标轴（推荐） #

ggh4x扩展包提供了原生的自定义坐标轴刻度功能，可直接将ggplot对象作为x轴标签渲染，天然与条形位置对齐，适配任意数量的条形。

完整可运行代码 #

# 加载依赖
library(ggplot2)
library(dplyr)
library(ggh4x)
library(grid)

# 1. 生成基础条形图
df <- data.frame(vals = c(10, 5, 18),
                 name = c("A", "B", "C"))
bp <- df %>%
  ggplot() +
  geom_bar(aes(x = name, y = vals), stat = "identity") +
  xlab("") +
  theme_bw() 

# 2. 生成x轴位置的小图表列表
p1 <- ggplot(df, aes(x = vals, y = vals)) + geom_point() + theme_bw() +
  theme(axis.title = element_blank(),
        axis.text  = element_blank(),
        axis.ticks = element_blank(),
        plot.margin = unit(rep(0,4), "pt")) 

p3 <- p2 <- p1
myList <- list(p1, p2, p3)

# 3. 替换x轴标签为小图表
bp +
  guides(
    x = guide_axis_custom(
      labels = myList,
      # 可按需调整小图表的高度
      size = unit(2, "cm")
    )
  ) +
  theme(
    axis.ticks.x = element_blank()
  )

方案2：使用patchwork包自适应布局 #

如果不想引入额外扩展包，可通过patchwork的行列自适应布局实现，无需手动指定area坐标：

library(patchwork)

n_bars <- nrow(df) # 自动获取条形数量，适配动态数据
wrap_plots(
  # 第一行放主条形图，跨所有列
  bp,
  # 第二行按顺序放对应小图表
  myList,
  ncol = n_bars,
  # 调整主图与小图的高度比例，按需修改
  heights = c(4, 1)
)

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