如何在R中仅对选定的植被覆盖列按数值规则替换值？

先处理数据类型问题 #

你的spec2列包含空字符串，导致该列为字符型，无法直接进行数值比较，需先转换为数值型并将空值转为NA：

# 转换第4-6列（物种覆盖度列）为数值型
releves[, 4:6] <- lapply(releves[, 4:6], function(x) as.numeric(x))

方法一：Base R 原生实现 #

直接针对选定列进行多条件赋值，避免修改其他列：

# 定义目标列（物种覆盖度列的索引）
target_cols <- 4:6

# 按自定义尺度赋值
# 覆盖度 <=1 → 1111
releves[, target_cols][releves[, target_cols] <= 1] <- 1111
# 1 < 覆盖度 <=10 → 2222
releves[, target_cols][releves[, target_cols] > 1 & releves[, target_cols] <= 10] <- 2222
# 10 < 覆盖度 <=20 → 3333
releves[, target_cols][releves[, target_cols] > 10 & releves[, target_cols] <= 20] <- 3333

方法二：dplyr 包简洁实现 #

如果使用tidyverse工具链，用across()批量处理指定列更直观：

library(dplyr)

releves <- releves %>%
  # 转换物种覆盖度列为数值型
  mutate(across(spec1:spec3, as.numeric)) %>%
  # 按条件匹配赋值
  mutate(across(spec1:spec3, ~case_when(
    .x <= 1 ~ 1111,
    .x > 1 & .x <= 10 ~ 2222,
    .x > 10 & .x <= 20 ~ 3333,
    TRUE ~ .x  # 超出尺度范围的值保持原样
  )))

原报错原因说明 #

你之前使用replace()函数报错，是因为replace要求第二个参数的逻辑向量维度与第一个参数（整个数据框）完全一致，但你仅传入了3列的逻辑矩阵，与6列的数据框维度不匹配，导致出错。

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