如何使用R ggplot将坐标轴刻度标签居中放置在刻度线之间

解决方案 #

方案1：原生ggplot2实现（无需额外依赖，支持v3.3.0及以上版本）

核心逻辑是通过错位设置刻度线位置和标签位置，实现标签居中在两条刻度线之间：

library(ggplot2)

# 示例数据
df <- data.frame(
  category = factor(c("A", "B", "C", "D", "E")),
  value = c(3, 5, 2, 6, 4)
)

# 1. 离散分类轴场景
ggplot(df, aes(x = as.numeric(category), y = value)) +
  geom_col(fill = "skyblue") +
  scale_x_continuous(
    # 刻度线位置对应分类数值点
    breaks = 1:length(levels(df$category)),
    # 标签位置偏移0.5，落在两个刻度中间
    labels = function(x) c(levels(df$category), "")[x+1],
    # 移除轴两端多余空白
    expand = c(0, 0.5)
  ) +
  theme_classic() +
  # 确保标签水平居中
  theme(
    axis.text.x = element_text(hjust = 0.5)
  )

# 2. 连续/时间轴场景（如月度统计时间序列）
date_df <- data.frame(
  date = seq.Date(as.Date("2024-01-01"), as.Date("2024-05-01"), by = "day"),
  value = rnorm(122, mean = 10, sd = 2)
)

ggplot(date_df, aes(x = date, y = value)) +
  geom_line(color = "darkred") +
  scale_x_date(
    # 刻度线放在每月1号
    breaks = seq.Date(as.Date("2024-01-01"), as.Date("2024-05-01"), by = "month"),
    # 标签放在月中位置，居中在两个月份刻度之间
    labels = function(x) {
      month_lbl <- format(x, "%Y-%m")
      c(month_lbl[-length(month_lbl)], "")
    },
    expand = c(0,0)
  ) +
  theme(
    axis.text.x = element_text(hjust = 0.5)
  )

方案2：简化实现（依赖ggh4x扩展包，适合复杂轴场景）

如果需要处理多层嵌套轴等复杂配置，可以用ggh4x包的辅助功能，代码更简洁：

# 首次使用先安装：install.packages("ggh4x")
library(ggh4x)

ggplot(df, aes(x = category, y = value)) +
  geom_col(fill = "skyblue") +
  scale_x_discrete(
    guide = "axis_nested",
    expand = c(0,0)
  ) +
  theme(
    ggh4x.axis.nesttext.x = element_text(hjust = 0.5)
  )

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