ggplot2中tableGrob与条形图日期对齐问题求助

核心思路是让图表x轴和表格的日期列在宽度、位置上完全匹配，以下是具体实现步骤：

1. 准备示例数据（可替换为你的真实数据） #

library(tidyverse)
library(patchwork)
library(gt)

# 模拟日期-数值数据
df <- tibble(
  date = seq.Date(as.Date("2024-01-01"), as.Date("2024-01-07"), by = "day"),
  value = sample(10:30, 7, replace = TRUE)
)

2. 绘制对齐友好的条形图 #

重点是去掉x轴两侧空白、统一日期格式，减少图表底部边距：

bar_plot <- ggplot(df, aes(x = date, y = value)) +
  geom_col(fill = "#2c3e50") +
  scale_x_date(date_labels = "%m-%d", expand = c(0, 0)) + # 移除x轴两侧空白，精准对齐
  theme_minimal() +
  theme(
    axis.title.x = element_blank(),
    plot.margin = margin(b = 0) # 去掉图表底部空白，让表格紧贴图表
  )

3. 制作匹配图表尺寸的表格 #

用gt包生成表格，确保宽度、日期格式、边距和图表完全匹配：

aligned_table <- df %>%
  mutate(date = format(date, "%m-%d")) %>% # 和图表x轴日期格式统一
  gt() %>%
  tab_options(
    table.width = bar_plot$width, # 强制表格宽度和图表一致
    table.margin = margin(t = 0), # 去掉表格顶部空白
    column_labels.hidden = TRUE # 可选：隐藏表头，让视觉更连贯
  ) %>%
  cols_align(align = "center") # 日期居中，对应条形图的中心位置

4. 组合图表与表格 #

用patchwork统一布局，设置合理的高度比例：

bar_plot + 
  gt::as_ggplot(aligned_table) +
  plot_layout(ncol = 1, heights = c(4, 1)) # 调整图表和表格的高度占比

关键注意事项 #

• 必须让图表x轴的expand = c(0,0)，否则两侧空白会导致表格无法对齐
• 表格的日期格式要和图表x轴的显示格式完全一致
• 调整图表和表格的margin，消除不必要的间距，让两者紧密贴合

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