没问题，我来帮你搞定这个ggplot2的平滑折线图需求！下面是一步步的实现方案，完全贴合你的数据结构和需求：

首先确保你已经安装并加载了必要的R包：

library(ggplot2)
library(dplyr) # 用来处理数据子集，可选但实用

第一步：数据准备 #

你给的数据是完美的长格式（每个ID对应多行Lat-P数据），直接就能用ggplot2。如果数据还没导入，这里给你两种方式：

# 方式1：从文件导入（比如csv）
df <- read_csv("your_data_file.csv")

# 方式2：模拟你提供的样本数据（方便测试）
df <- tibble(
  ID = c(rep(86230,4), rep(96464,4), rep(97181,4)),
  P = c(0.16666667, 0.57142857, 0.88235294, 1.00000000,
        0.46428571, 0.50000000, 0.92857143, 1.00000000,
        0.94736842, 0.87500000, 0.82352941, 0.33333333),
  col = c(rep("black",8), rep("gray87",4)),
  Lat = rep(c(45.06,45.42,45.66,45.87),3)
)

第二步：绘制基础的多ID平滑折线 #

我们用geom_smooth()来生成每个ID的平滑曲线，还可以可选添加原始数据点来观察分布：

base_plot <- ggplot(df, aes(x = Lat, y = P, color = col, group = ID)) +
  # 可选：添加原始数据点，透明度设0.7避免重叠
  geom_point(alpha = 0.7) +
  # 核心：绘制平滑折线，小数据用loess方法，关闭置信区间阴影
  geom_smooth(method = "loess", se = FALSE, linewidth = 1) +
  # 直接用你数据里的颜色值（比如black、gray87），不用ggplot默认配色
  scale_color_identity() +
  # 自定义坐标轴和标题
  labs(x = "Latitude", y = "P Value", title = "Smooth Lines by Sample ID") +
  # 用简洁的主题，替换成你喜欢的也可以
  theme_bw()

# 查看基础图
print(base_plot)

第三步：添加额外的两条平滑曲线 #

如果需要添加两条独立的全局/分组平滑曲线，只需要再调用geom_smooth()，指定对应的数据子集即可。举个例子：

final_plot <- base_plot +
  # 第一条：所有数据的整体趋势平滑曲线（红色虚线）
  geom_smooth(data = df, aes(x = Lat, y = P, group = NULL), 
              method = "loess", se = FALSE, color = "red", linewidth = 1.2, linetype = "dashed") +
  # 第二条：仅黑色组数据的平滑曲线（蓝点线）
  geom_smooth(data = filter(df, col == "black"), aes(x = Lat, y = P, group = NULL), 
              method = "loess", se = FALSE, color = "blue", linewidth = 1.2, linetype = "dotdash")

# 查看最终图
print(final_plot)

关键参数小提示 #

• 平滑方法：小数据集用method = "loess"足够，大数据集可以换成method = "gam", formula = y ~ s(x)（需要先装mgcv包）
• 样式调整：linewidth改粗细，linetype换线条样式（实线、虚线、点线等），se = TRUE可以打开置信区间阴影
• 颜色控制：scale_color_identity()是核心，让ggplot直接用你数据里的颜色字符串，完美匹配需求

这样就能得到你要的效果：既有每个ID对应的平滑折线，又叠加了两条额外的平滑曲线！

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