如何缩短ggplot绘制的斜率图中两组间的线条距离？

以下是几种实用的调整方法，帮你缩短两组线条间距并确保放大后文字不溢出：

• 手动调整x轴位置，直接缩小分组间距
  把分组转为数值型，手动设置DCE和Likert的x坐标，让它们更靠近。比如：

  # 给数据添加自定义x轴数值
  df$x_pos <- ifelse(df$group == "DCE", 1, 1.3) # 可根据需求调整1.3这个值，越小间距越近
  ggplot(df, aes(x = x_pos, y = rank, group = item, color = item)) +
    geom_line() +
    geom_point() +
    # 把数值坐标转回原分组标签
    scale_x_continuous(breaks = c(1, 1.3), labels = c("DCE", "Likert")) +
    # 限制x轴范围，减少左右空白
    coord_cartesian(xlim = c(0.8, 1.5))
  

• 调整x轴的空白扩展量
  如果你的x轴是离散型分组，用scale_x_discrete()的expand参数减少轴两端的空白，让两个分组自然靠拢：

  ggplot(df, aes(x = group, y = rank, group = item, color = item)) +
    geom_line() +
    geom_point() +
    geom_text(aes(label = item), hjust = 0.5) +
    scale_x_discrete(expand = c(0.03, 0)) # 第一个值越小，轴两端空白越少
  

• 配合文本标签优化，防止溢出
  要是放大后文字容易跑出图外，推荐用ggrepel包的geom_text_repel()自动调整标签位置，同时结合边距调整：

  library(ggrepel)
  ggplot(df, aes(x = group, y = rank, group = item, color = item)) +
    geom_line(position = position_dodge(width = 0.1)) # 缩小线条的横向偏移
    geom_point(position = position_dodge(width = 0.1)) +
    geom_text_repel(aes(label = item), box.padding = 0.2, max.overlaps = Inf) +
    scale_x_discrete(expand = c(0.05, 0)) +
    # 减少绘图区域边距
    theme(plot.margin = margin(8, 8, 8, 8, "pt"))
  

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