R语言barplot：如何均匀排布两组不同维度的并列条形图

问题根源 #

你之前靠两次barplot叠加、手动枚举space向量的对齐方式，本质是两次调用独立计算x轴坐标，仅靠add=T把两张图拼在同一个画布上。两次调用的width、space参数都是独立计算坐标的，哪怕列数改1个、width调整0.1，之前凑好的space值就会完全失效，必须重新手动校准，面对后续多组同类数据集时效率极低。
你最初遇到的non-numeric argument报错其实很简单：第一段代码里main = 是没赋值的空参数占位，barplot内部计算绘图边距时会把这个无效参数识别为计算对象，触发类型错误，给main传入合法文本即可解决。

通用实现方法（零手动配置） #

根本不需要拆分两次调用barplot，先把两组要展示的数值拼成barplot原生支持的矩阵格式，用自带的beside=TRUE参数自动完成均匀排布，整套逻辑不管列数怎么变都能直接用：

1. 编写通用的绘图矩阵生成函数，自动对齐列顺序、完成数值聚合，不用手动统计列数：

#' 生成适配双柱并排的绘图矩阵
#' @param full_mat 全量数据矩阵（如SPECIAL）
#' @param small_mat 子集数据矩阵（如SMALLSPECIAL）
#' @param agg_fun 按列聚合的函数，可替换为colMeans/last/quantile等适配实际需求
#' @return 2行N列矩阵，每行对应一组柱子
get_plot_matrix <- function(full_mat, small_mat, agg_fun = colMeans) {
  # 自动校验列顺序，避免列错位导致的标签偏移
  stopifnot(identical(colnames(full_mat), colnames(small_mat)))
  # 自动计算两组的展示值
  val_small <- agg_fun(small_mat, na.rm = TRUE)
  val_full <- agg_fun(full_mat, na.rm = TRUE)
  # 绑定为2行结构，直接对应每个标的位置的两根柱子
  plot_mat <- rbind(val_small, val_full)
  rownames(plot_mat) <- c("子集组", "全量组")
  return(plot_mat)
}

2. 直接单次调用barplot绘制，所有间距、坐标自动对齐，完全不用手动枚举space向量：

# 不管是SPECIAL2、SPECIAL3还是其他同结构数据集，直接替换入参即可运行
target_mat <- get_plot_matrix(SPECIAL, SMALLSPECIAL)
barplot(target_mat,
        beside = TRUE, # 自动实现同组两根柱子的并列排布
        ylim = c(-2.0, 2.0),
        col = c("#f8766d", "#00bfc4"), # 颜色与矩阵行顺序一一对应
        width = 0.4, # 统一柱子宽度
        # 仅需两个间距参数：同一组内两根柱子的间隙、不同标的组之间的间隙，自动适配列数
        space = c(0.3, 1.2),
        border = NA,
        main = "标的收益率分组对比",
        xaxt = "n")
# 自动将x轴标签对齐到每组两根柱子的中心位置，无需手动计算坐标
axis(1, 
     at = colMeans(matrix(seq_along(target_mat), nrow = 2)), 
     labels = colnames(target_mat))

方案优势 #

• 完全适配后续同类数据集：只要两个待对比矩阵的列名、列顺序一致，直接替换函数入参即可出图，不需要手动统计列数修改space向量
• 坐标零错位：单次调用时整个绘图区域的坐标系是统一计算的，不会出现拆分叠加时的柱子重叠、偏移问题
• 参数调整灵活：需要修改柱子宽度、间距、聚合逻辑时直接调整对应参数即可，不需要重新校准柱子位置

如果一定要保留两次barplot叠加的绘制习惯，也可以在第一次绘制时存下自动生成的x轴坐标范围，第二次绘制时用xlim参数直接对齐坐标基准，完全不需要手动凑space值。

内容的提问来源于stack exchange，提问作者Thomas Lee。