如何为重叠的X轴标签设置交替换行显示？

嘿，我来帮你解决这个X轴标签挤在一起的问题！你之前找到的代码逻辑有点小反转，调整一下就能完美实现交替换行的效果啦～

我们的目标是让偶数位置的X轴标签（比如D2、D4这类）自动下移一行，和奇数标签错开，提升可读性。核心就是给偶数索引的标签前面加上换行符\n，让ggplot自动把它们往下挪。

先把你之前的标签函数修正一下，原来的ifelse判断搞反了，应该给偶数位置的标签加换行：

scale_x_discrete(
  labels = function(labels) {
    fixedLabels <- c()
    for (l in 1:length(labels)) {
      # 偶数索引的标签前加换行符，实现下移
      fixedLabels <- c(fixedLabels, paste0(ifelse(l %% 2 == 0, '\n', ''), labels[l]))
    }
    return(fixedLabels)
  }
)

把这个修正后的刻度设置整合到你的帕累托图代码里，完整代码如下：

library(ggplot2)

# 测试数据准备
Group = c("D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14")
x = c(141, 57, 38, 18, 13, 7, 5, 4, 2, 2, 1, 1, 1, 1)
dat <- data.frame(Group = Group, x = x, stringsAsFactors=TRUE)
dat <- dat[order(dat$x, decreasing=TRUE), ]
dat$Group <- factor(dat$Group, levels=dat$Group[order(dat$x, decreasing=TRUE)])
cum = sum(dat$x)
dat$cum <- 100*(dat$x)/cum
dat$cum = cumsum(dat$cum)

# 绘制帕累托图，加入修正后的X轴标签设置
ggplot(dat, aes(x=Group)) +
  geom_bar(aes(y=x), fill="lightblue", stat="identity") +
  stat_count(aes(label = x), geom = "text", vjust=-0.3, size=3.5) +
  geom_point(aes(y=cum)) +
  geom_path(aes(y=cum, group=1)) +
  # 这里加入修正后的X轴标签处理
  scale_x_discrete(
    labels = function(labels) {
      fixedLabels <- c()
      for (l in 1:length(labels)) {
        fixedLabels <- c(fixedLabels, paste0(ifelse(l %% 2 == 0, '\n', ''), labels[l]))
      }
      return(fixedLabels)
    }
  )

调整后X轴标签会交错排列，偶数位置的标签下移一行，解决了重叠问题，效果如下：

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