如何使用ggplot实现带有双行X轴（周起始与周结束）的直方图？

我来帮你搞定这个带有双行X轴的直方图！核心思路是把每个周的起始和结束日期合并成多行文本标签，这样就能在X轴上自然显示两行内容啦。结合你现有的代码，我帮你调整了关键部分，具体实现如下：

# 假设你已经读取了数据到hist_data对象中
hist_data %>% 
  ggplot(aes(x = week, y = count)) +
  geom_col(fill = "#5B879E", width = 0.9, size = 0.7) +
  labs(title = "", x = "", y = "") +
  theme_minimal() +
  theme(
    legend.position = "none",
    panel.grid = element_blank(), # 一次性去掉所有网格线，更简洁
    axis.text.y = element_blank(),
    axis.text.x = element_text(
      vjust = 0.5, 
      size = 8, 
      family = "Inter", 
      colour = "#ffffff",
      lineheight = 1.2 # 调整行高，让两行标签不拥挤
    ),
    axis.line.x = element_blank(),
    axis.title.x = element_blank(),
    plot.background = element_rect(fill = "#3A464F"),
    plot.margin = unit(c(0, 0.25, 0.5, 0), "cm")
  ) +
  scale_x_discrete(
    expand = c(0, 0),
    # 拼接起始和结束日期，用换行符实现双行标签
    labels = paste(
      format(as.Date(hist_data$week_start), "%d-%m"),
      format(as.Date(hist_data$week_end), "%d-%m"),
      sep = "\n"
    ),
    position = "bottom"
  ) +
  scale_y_continuous(expand = c(0, 0)) # 可选：让柱子底部贴合X轴

关键修改说明： #

• 双行X轴标签实现：通过paste(..., sep = "\n")把周起始和结束日期拼接成带换行符的字符串，ggplot会自动把换行符解析为多行文本，这样每个X轴位置就会显示两行内容，第一行是起始日期，第二行是结束日期。
• 优化文本显示：添加lineheight = 1.2参数控制两行文本的间距，避免内容拥挤；调整vjust = 0.5保证整个多行标签垂直居中于X轴刻度位置。
• 简化Theme设置：把重复的theme_bw()+theme_minimal()合并为只保留theme_minimal()（后者会覆盖前者的大部分样式），同时用panel.grid = element_blank()一次性去掉所有网格线，让代码更简洁。
• 可选优化：给scale_y_continuous加上expand = c(0, 0)，让直方图的柱子底部完全贴合X轴，视觉效果更统一。

如果需要调整日期显示格式，只要修改format()函数里的参数即可，比如"%Y-%m-%d"可以显示完整的年-月-日格式。

内容的提问来源于stack exchange，提问作者masha-pl