如何在ggplot2中为单个个体关联身高与体重变量并绘制连接线？

问题说明 #

已基于包含ID、height（身高）、Bodymass（体重）、Age（年龄）的数据集绘制双Y轴图：

• X轴为Age
• 左Y轴对应身高，包含散点与loess平滑线
• 右Y轴对应体重（经scaleFactor缩放），包含散点与loess平滑线

需求：为每个个体连接其身高与体重的数据点，并添加ID标签，但使用geom_segment和geom_line时出现异常。

数据集示例 #

尝试的原始代码 #

ggplot(BM_height, aes(x=Age)) + 
  geom_smooth(aes(y=height), method="loess", col="blue") +
  geom_point(aes(y=height),col="blue")+
  geom_smooth(aes(y=BodyMass * scaleFactor), method="loess", col="red") +
  geom_point(aes(y=BodyMass/10),col="red")+
  #geom_segment(aes(x = Age, y = height, xend = Age, yend = BodyMass))+
  scale_y_continuous(name="height (cm)", sec.axis=sec_axis(~./scaleFactor, name="Body mass (g)")) +
  theme(
    axis.title.y.left=element_text(color="blue"),
    axis.text.y.left=element_text(color="blue"),
    axis.title.y.right=element_text(color="red"),
    axis.text.y.right=element_text(color="red")
  )
#geom_text(BM_height, mapping=aes(label=ID_new), stat="identity")

问题修正与解决方案 #

核心问题点 #

1. 缩放逻辑不一致：原始代码中体重的散点用BodyMass/10，但平滑线用BodyMass * scaleFactor，且geom_segment直接使用原始Bodymass值，导致数值范围不匹配，线条无法正确显示。
2. geom_text调用错误：未将geom_text纳入ggplot图层链，且未指定合理的y轴映射位置。

修正后代码 #

# 统一定义缩放因子，确保所有体重相关图层使用相同逻辑
scaleFactor <- 10

ggplot(BM_height, aes(x=Age)) + 
  # 身高图层：散点+平滑线
  geom_smooth(aes(y=height), method="loess", col="blue") +
  geom_point(aes(y=height), col="blue") +
  # 体重图层：统一使用缩放后的值，与双Y轴设置匹配
  geom_smooth(aes(y=BodyMass * scaleFactor), method="loess", col="red") +
  geom_point(aes(y=BodyMass * scaleFactor), col="red") +
  # 绘制个体连接线：x轴位置一致，y轴连接身高与缩放后体重
  geom_segment(
    aes(x=Age, y=height, xend=Age, yend=BodyMass * scaleFactor),
    color="gray50", linetype="dashed", linewidth=0.8
  ) +
  # 添加ID标签：放置在连接线中间位置
  geom_text(
    aes(y=(height + BodyMass * scaleFactor)/2, label=ID),
    color="black", size=3, vjust=0.5
  ) +
  # 双Y轴配置：左轴为身高，右轴为原始体重值
  scale_y_continuous(
    name="身高 (cm)",
    sec.axis=sec_axis(~./scaleFactor, name="体重 (kg)")
  ) +
  theme(
    axis.title.y.left=element_text(color="blue"),
    axis.text.y.left=element_text(color="blue"),
    axis.title.y.right=element_text(color="red"),
    axis.text.y.right=element_text(color="red")
  )

关键说明 #

• 所有体重相关的y值必须使用同一缩放逻辑（BodyMass * scaleFactor），确保与双Y轴的sec_axis(~./scaleFactor)转换规则匹配。
• geom_segment的yend参数必须使用缩放后的体重值，否则线条会因数值范围差异超出可视区域。
• geom_text通过计算身高与缩放后体重的平均值来确定标签位置，保证标签位于连接线附近，提升可读性。

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