如何将图表中不同变量的标签向相反方向移动？

我完全懂你碰到的这个痛点——当两条折线的数值接近时，标签挤在一起真的很影响可读性。既然你的数据已经转成长格式了，我们可以利用var列的分组信息，给不同线条的标签设置不同的垂直偏移量，轻松把上方线条的标签上移、下方的下移。

原始代码回顾 #

你的初始代码整理后如下：

library(dplyr)
library(ggplot2)
library(tidyr)

# sample data
dat <- data.frame(
 x = seq(1, 10, length.out = 10),
 y1 = seq(1, 5, length.out = 10),
 y2 = seq(1, 6, length.out = 10))

# convert to long format
dat <- dat %>% gather(var, value, -x)

# plot it
ggplot(data = dat, aes(x = x, y = value, color = var)) + 
  geom_line() + 
  geom_label(aes(label = value))

修改后的解决方案 #

核心思路是在geom_label里用nudge_y参数，根据var的取值设置不同的偏移量，用case_when来做分组判断非常直观：

ggplot(data = dat, aes(x = x, y = value, color = var)) + 
  geom_line() + 
  # 根据线条分组设置标签上下偏移
  geom_label(aes(label = value, 
                 nudge_y = case_when(
                   var == "y2" ~ 0.2,  # 上方的y2线条，标签上移0.2
                   var == "y1" ~ -0.2  # 下方的y1线条，标签下移0.2
                 ))) +
  theme_bw()  # 可选，让图表视觉更清爽

额外优化小技巧 #

• 你可以根据实际数据的数值范围调整0.2这个偏移量，确保标签既不重叠也不会离线条太远
• 如果想要标签更美观，可以添加size = 3调整字体大小，fill = "white"让标签背景不遮挡线条
• 要是怕标签超出图表范围，可以用expand_limits(y = c(min(dat$value)-0.5, max(dat$value)+0.5))扩展y轴范围

这样修改后，两条线的标签就会分别上下错开，彻底解决重叠问题啦！

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