base R批量计算波段值时报错non-numeric argument to binary operator如何解决

需要对多列光谱数据执行批量计算，核心公式为：
波段2的值 = (波段3 - 波段1) / (波段3对应列名数值 - 波段1对应列名数值)
要求在base R环境下实现。

原运行代码如下：

data4 <- read.csv(file.choose())
XBC <- data4[data4$Crops == "XBC", ]
NB <- data4[data4$Crops == "NB", ]
name <- colnames(NB)[5:125] # 将列名存储到name变量
name <- gsub("[a-zA-Z ]", "", name) # 移除列名中的字母，使其可转换为数值
cols <- 5:125 
colsname <- 1:121
NB[cols] <- lapply(NB[cols], as.numeric) # 将NB数据框对应列的取值设为数值型
name[colsname] <- lapply(name[colsname], as.numeric) # 将处理后的列名设为数值型
NB[cols+1] <- ((NB[cols+1] - NB[cols-1]))/((name[colsname+1] - name[colsname-1])) # 执行公式计算

运行后报错：
Error in FUN(left, right) : non-numeric argument to binary operator

1. 用lapply对name做数值转换后，name会变成列表类型而非数值向量，执行减法运算时触发非数值参数报错
2. 索引范围设置错误：cols+1会超出现有列的索引边界，且未匹配「计算中间列值」的需求

data4 <- read.csv(file.choose())
NB <- data4[data4$Crops == "NB", ]
# 提取光谱列，假设第5到125列是需要处理的光谱列
spec_cols <- 5:125
# 转换光谱列数据为数值型
NB[spec_cols] <- lapply(NB[spec_cols], as.numeric)
# 提取列名并转换为数值向量
wave_values <- as.numeric(gsub("[a-zA-Z ]", "", colnames(NB)[spec_cols]))
# 确定需要计算的中间列索引：从第2个光谱列到倒数第1个光谱列
calc_col_idx <- 2:(length(spec_cols)-1)
# 批量执行计算
for (i in calc_col_idx) {
  # 对应原数据框的实际列位置
  real_col <- spec_cols[i]
  NB[, real_col] <- (NB[, real_col + 1] - NB[, real_col - 1]) / (wave_values[i + 1] - wave_values[i - 1])
}

• 直接用as.numeric将处理后的列名转换为数值向量，避免列表类型导致的运算报错
• 调整索引范围，仅对中间的光谱列执行计算，不会出现索引越界问题
• 逐列遍历匹配「当前列=（后一列值-前一列值）/（后一列波长-前一列波长）」的计算逻辑，符合示例要求

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