使用coord_flip后，ggplot分组条形图轴刻度无法正确置于组间

coord_flip()会直接交换ggplot中x轴与y轴的所有属性映射关系：

• 你原本针对原x轴设置的scale_x_continuous()，在翻转后实际作用于新的y轴（原x轴）；
• 原theme(axis.ticks.x = ...)控制的是翻转后的x轴（原y轴）刻度，而非你需要调整的新y轴刻度；
• 这就导致原本用于分组标签的位置也保留了刻度，同时组间的刻度又额外添加，最终出现双重刻度的情况。

核心思路是：针对翻转后的轴属性重新配置，明确控制新y轴（原x轴）的刻度位置与显示状态。

步骤1：构造示例数据（方便复现） #

set.seed(123)
data <- data.frame(
  x = rep(1:3, each = 2),
  name = rep(c("A", "B", "C"), each = 2),
  variable = rep(c("组1", "组2"), 3),
  value = sample(1:10, 6)
)

步骤2：计算组间刻度位置 #

首先获取分组的中心位置，再计算分组之间的分隔位置：

unique_x <- sort(unique(data$x))
# 组间刻度位置：相邻分组中心的中间值
x_tick <- unique_x[-length(unique_x)] + 0.5
# 合并分组中心（用于显示标签）和组间位置（用于显示刻度）
all_breaks <- c(unique_x, x_tick)
# 对应标签：分组名称+空标签（组间位置不显示文字）
all_labels <- c(unique(data$name), rep("", length(x_tick)))

步骤3：调整ggplot代码 #

翻转后，原x轴变为y轴，因此需要用scale_y_continuous()配置刻度，同时在theme中针对axis.ticks.y控制刻度显示：

library(ggplot2)

ggplot(data, aes(x = x, y = value, fill = variable)) + 
  geom_col(position = position_dodge(width = 0.9)) +
  # 针对翻转后的y轴（原x轴）设置刻度和标签
  scale_y_continuous(
    breaks = all_breaks,
    labels = all_labels,
    # 扩展轴范围，让两端的组间刻度完整显示
    expand = expansion(add = c(0.5, 0.5))
  ) +
  # 控制y轴刻度：仅组间位置显示黑色刻度，分组中心位置隐藏
  theme(
    axis.ticks.y = element_line(
      color = c(rep(NA, length(unique_x)), rep("black", length(x_tick)))
    ),
    # 可选：调整y轴标签与刻度的间距
    axis.ticks.length.y = unit(5, "pt")
  ) +
  coord_flip()

关键说明 #

• position_dodge(width = 0.9)：保持默认的条形间距，确保组间刻度刚好落在两组条形的中间；
• expand = expansion(add = c(0.5, 0.5))：扩展y轴范围，让最左侧和最右侧的组间刻度能完整显示；
• axis.ticks.y的颜色向量：前半部分对应分组中心位置，设为NA隐藏刻度；后半部分对应组间位置，设为黑色显示刻度。

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