R语言基于指定向量修改数据框因子列标签为对应序号的实现方法

你已经拥有按正确顺序存储站点ID的向量，下文记为site_order_vec，直接用match()函数即可完成映射替换，该函数会返回输入值在参考向量中的位置索引，刚好对应你需要的1到2026的序号。

单个数据框处理代码 #

# 处理列表中第一个数据框的示例
target_df <- Visit.data_allyears[[1]]
target_df$SiteName <- match(target_df$SiteName, site_order_vec)

批量处理列表中所有数据框 #

如果需要修改Visit.data_allyears列表内全部数据框的SiteName列，用lapply遍历即可：

Visit.data_allyears <- lapply(Visit.data_allyears, function(item) {
  item$SiteName <- match(item$SiteName, site_order_vec)
  return(item)
})

注意事项 #

• 若数据框中存在不在site_order_vec中的站点ID，匹配结果会返回NA，如需删除无匹配结果的行可以执行：df <- df[!is.na(df$SiteName), ]
• 转换后的SiteName列为整数类型，如有需要可自行转换为因子或者字符类型。

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