如何在ggplot折线图上叠加指定散点数据集

要将expbet数据集的散点叠加到现有折线图中，只需在原ggplot代码基础上添加指定数据集的geom_point()图层即可，利用ggplot的图层叠加特性实现多数据集可视化。

修改后的完整代码 #

ggplot(binodalbet) +
  aes(x = w.sal, y = w.tpc, colour = Category) +
  geom_line() +
  geom_path(linewidth=1) +
  # 新增散点图层，指定expbet为数据源
  geom_point(data = expbet, size = 3, color = "black") +
  scale_color_hue(direction = 1) +
  labs(
    x = expression(w[Salt]),
    y = expression(w[TPC]),
    title = bquote(Bet~" : "~2~LA~"/"~K[3]~PO[4])) +
  scale_color_discrete(name="") + 
  theme(panel.background = element_rect(fill = "white", colour = "grey50"), 
        axis.text=element_text(size=20), 
        title=element_text(size=24,face="bold"), 
        legend.title=element_text(size=24, face="bold"),
        legend.text=element_text(size=22))

关键说明 #

• 由于expbet和binodalbet的x/y变量名（w.sal、w.tpc）完全一致，geom_point()会自动继承主图层的aes映射，无需重复定义x和y。
• 可通过size、color等参数自定义散点样式，比如设置color="black"让散点与彩色折线形成对比，提升可读性。
• 如果需要给散点单独设置映射（比如按另一个变量着色），可以在geom_point()内重新定义aes，例如：geom_point(data = expbet, aes(color = ExpGroup), size = 3)。

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