R语言中如何依据另一数据框匹配时间替换血糖值？

第一段代码的问题 #

• 错误根源：match(Mean_glucose$Time_Glucose, DF$Time_Glucose)返回的向量包含NA值，说明Mean_glucose中存在部分Time_Glucose在DF里找不到匹配项。R不允许用NA作为下标执行赋值操作，因此触发报错。
• na.omit无效的原因：你可能直接对原数据框使用了na.omit，但未处理match返回结果中的NA。正确逻辑是先过滤掉无效的NA下标，再进行赋值。
• 修正代码：

# 获取匹配下标并过滤NA
match_idx <- match(Mean_glucose$Time_Glucose, DF$Time_Glucose)
valid_idx <- match_idx[!is.na(match_idx)]
# 仅对有有效匹配的行赋值，保证数据长度一致
DF$Gluc[valid_idx] <- Mean_glucose$MnStartGlu[!is.na(match_idx)]

若需要排查缺失的时间项，可先执行：

missing_times <- Mean_glucose$Time_Glucose[is.na(match_idx)]
print(missing_times) # 查看DF中不存在的时间值

第二段代码的问题 #

• 错误根源：left_join默认给重名列添加的后缀是.x（左表DF）和.y（右表Mean_glucose），而非你写的.DF和.Mean_glucose，导致Gluc.Mean_glucose与Gluc.DF这两个对象不存在，触发报错。
• 两种修正方案：
  1. 使用默认后缀：

left_join(DF, Mean_glucose, by = "Time_Glucose") %>%
  mutate(Gluc = coalesce(Gluc.y, Gluc.x)) %>%
  select(-Gluc.x, -Gluc.y)

2. 自定义后缀明确列来源：

left_join(DF, Mean_glucose, by = "Time_Glucose", suffix = c(".DF", ".Mean_glucose")) %>%
  mutate(Gluc = coalesce(Gluc.Mean_glucose, Gluc.DF)) %>%
  select(-Gluc.DF, -Gluc.Mean_glucose)

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