R语言中基于一个数据集插值另一个数据集并合并非均匀值的实现

• 核心逻辑是按Slide（载玻片）分层处理：因为每张载玻片的年龄-距离对应关系独立，不能跨样本插值
• 对每张载玻片的数据集A，先基于离散的Distance和对应的Age拟合插值函数
• 用插值函数为TE数据集中同载玻片的每个精细Distance值计算匹配的Age，最终合并得到目标数据集

默认使用R的tidyverse生态实现，你安装过ggplot2的话相关依赖都已存在：

# 加载依赖包
library(tidyverse)

# 步骤1：为每张载玻片生成 距离→年龄 的插值函数
age_interp_rule <- A %>%
  group_by(Slide) %>%
  summarise(
    # rule=1表示超出A的Distance范围时返回NA，需要外推可改为rule=2
    get_age = list(approxfun(x = Distance, y = Age, rule = 1))
  )

# 步骤2：为TE数据集的每个距离匹配年龄
TE_merged <- TE %>%
  left_join(age_interp_rule, by = "Slide") %>%
  group_by(Slide) %>%
  mutate(Age = map_dbl(Distance, ~ get_age[[1]](.x))) %>%
  select(-get_age) %>% # 移除临时生成的插值函数列
  ungroup()

执行后得到的TE_merged就包含Slide、Concentration、Distance、Age四列，可直接运行你给出的ggplot代码绘图。

• 若得到的Age列存在大量NA：检查对应载玻片TE的Distance是否超出了数据集A的Distance取值范围，可根据业务需求选择改为外推（修改rule=2）或者删除超出范围的TE数据点
• 若年龄随距离不是线性变化：可将approxfun替换为样条插值函数splinefun即可

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