如何基于键值对替换R语言数据框列中的标签值？

我有一个名为allfilesGround_long的数据框，最后一列label用于绘图标注。该列大部分值为NA，仅在日期为最新日期的行中存在12个值——这些值与下方labels列表中的键匹配，但当前标签有误，需要替换为labels列表中对应的取值。

当前生成标签的代码：

allfilesGround_long$label <- NA
allfilesGround_long$label[which(allfilesGround_long$Date == max(allfilesGround_long$Date))] <- 
  allfilesGround_long$Location[which(allfilesGround_long$Date == max(allfilesGround_long$Date))]

用于替换的键值对列表：

labels <- list('HM SSSI 1'= 'SSSI 1',
               'HM SSSI 2' = 'SSSI 2',
               'HM SSSI 3' = 'SSSI 3',
               'HM SSSI 4' = 'SSSI 4',
               'HMB 1'= 'B1',
               'HMB 2'= 'B2',
               'HMB 3'= 'B3',
               'HMB 4'= 'B4',
               'HMB 5'= 'B5',
               'HMB 6'= 'B6',
               'HMB 7'= 'B7',
               'HMB 8'= 'B8')

按label列排序后的表格显示：最新日期行的label列当前值为HM SSSI 1至HM SSSI 4、HMB 1至HMB 8这些原始Location取值。

方法一：Base R实现 #

先将labels列表转换为命名向量（更方便做值映射），再定位最新日期的行进行替换：

# 转换为命名向量
labels_vec <- unlist(labels)

# 定位最新日期的行
latest_date_idx <- allfilesGround_long$Date == max(allfilesGround_long$Date)

# 替换标签值
allfilesGround_long$label[latest_date_idx] <- labels_vec[allfilesGround_long$Location[latest_date_idx]]

方法二：dplyr实现（更简洁） #

如果习惯使用tidyverse工具链，可以用case_when精准替换：

library(dplyr)

labels_vec <- unlist(labels)

allfilesGround_long <- allfilesGround_long %>%
  mutate(label = case_when(
    Date == max(Date) ~ labels_vec[Location],
    TRUE ~ label  # 其他行保持原有NA值
  ))

说明 #

命名向量labels_vec的键是原始标签值，值是需要替换的目标标签。通过labels_vec[原始值]可以直接提取对应的目标值，确保最新日期行的label被准确替换，其余行的NA不受影响。

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