如何使用R函数将dataframe中特定范围数值替换为对应标称值

以下是可直接运行的实现方案：

1. 构造示例数据 #

先复现你给出的原始数据框和映射对应表：

# 原始数据框
df <- data.frame(
  row.names = c("A", "B", "C"),
  A = c(0, 3.1, 2),
  B = c(3, 0, 2.1),
  C = c(1.1, 0.9, 0)
)

# 映射对应表
map_df <- data.frame(
  Label = c("w", "x", "y", "z"),
  Num = 0:3
)

2. 生成映射索引 #

将映射表转换为命名向量，方便后续批量匹配替换：

map_vec <- setNames(map_df$Label, as.character(map_df$Num))

3. 批量替换数值 #

你可以根据使用习惯选择以下两种方案：

tidyverse（dplyr）方案 #

library(dplyr)
df_result <- df %>%
  # 对所有列执行操作：先向下取整，再匹配对应Label
  mutate(across(everything(), ~map_vec[as.character(floor(.x))]))

base R原生方案 #

无需加载任何外部包：

df_result <- df
# 遍历所有列完成替换
df_result[] <- lapply(df_result, function(x) {
  map_vec[as.character(floor(x))]
})

结果验证 #

运行后得到的df_result完全符合需求：

A B C
A w z x
B z w x
C y y w

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