如何用ggplot2::geom_bar()在连续X轴下匹配地质时间分箱条形宽度？

要实现每个条形宽度匹配地质分箱时长且无空隙，最可靠的方式是放弃默认geom_bar()的离散轴逻辑，改用geom_rect()直接基于分箱的起止时间绘制矩形，或者手动给geom_bar()指定宽度参数。以下是两种方案：

方案1：用geom_rect（推荐） #

这种方式直接对应分箱的时间边界，完全避免宽度对齐问题，步骤如下：

1. 整理数据：确保每个分箱包含起始时间（如Ma单位，古老时间数值更大）、结束时间、要展示的数值和分箱名称。
2. 用geom_rect()指定x的起止范围（xmin/xmax）和y的起止范围（ymin/ymax）。

代码示例 #

library(ggplot2)

# 模拟地质分箱数据：start_ma是分箱开始时间（更古老），end_ma是结束时间（更新）
time_bins <- data.frame(
  bin_name = c("Cm", "Mst", "Ka", "Jy"),
  start_ma = c(66, 145, 201, 252),
  end_ma = c(145, 201, 252, 299),
  value = c(12, 25, 18, 30)
)

# 绘制图形
ggplot(time_bins) +
  # 绘制分箱条形：xmin/xmax对应时间边界，ymin从0到数值
  geom_rect(aes(xmin = start_ma, xmax = end_ma, ymin = 0, ymax = value),
            fill = "steelblue", color = "black") +
  # 反转X轴：地质时间通常最新在左，最老在右
  scale_x_reverse(name = "地质时间 (Ma)") +
  scale_y_continuous(name = "观测数值") +
  # 可选：在条形中心添加分箱名称
  geom_text(aes(x = (start_ma + end_ma)/2, y = value/2, label = bin_name),
            color = "white", size = 4) +
  theme_minimal()

方案2：手动调整geom_bar参数 #

如果坚持用geom_bar()，需要将X轴设为连续型，手动指定每个条形的宽度为分箱时长，并把x映射到分箱的中心位置：

代码示例 #

ggplot(time_bins, aes(x = (start_ma + end_ma)/2, y = value)) +
  # width设为分箱时长（end_ma - start_ma），position=identity避免自动调整
  geom_bar(stat = "identity", width = time_bins$end_ma - time_bins$start_ma,
           fill = "steelblue", color = "black", position = "identity") +
  scale_x_reverse(name = "地质时间 (Ma)") +
  scale_y_continuous(name = "观测数值") +
  theme_minimal()

关键注意点 #

• 地质时间轴通常需要反转（scale_x_reverse()），因为时间越久远，Ma数值越大，反转后符合地质图的常规展示逻辑。
• 确保你的时间数据是连续数值（如Ma），而非离散的分箱名称，这样X轴才能正确显示地质时间尺度。

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