R语言仅用向量化与索引无循环实现数据框负值转换

开发者阿泽

2026-8-27

问题描述

构建同时包含字符串列与整数列的数据框，其中整数列同时存在正值与负值。要求不使用for/if循环，仅通过向量化操作与索引方式完成数值转换，转换规则为：数值列中的负值取绝对值后乘以10，正值保持不变。目前已完成for循环版本的实现，需要无循环的向量化实现方案。

示例测试数据

df <- data.frame(x = letters[1:5],
                 y = seq(-4,4,2),
                 z = c(3,4,-5,6,-8))

已完成的循环版本实现

loop_df_fn <- function(data){
  for(i in names(data)){
    if(is.numeric(data[[i]])){
      data[[i]][data[[i]]<0] <- abs(data[[i]][data[[i]]< 0])*10
    }
  }
  return(data)
}
print(loop_df_fn(df))

无循环向量化实现方案

实现思路：

用sapply一次性批量判断所有列是否为数值列，得到布尔类型的列索引，不需要逐列写if判断
用lapply对筛选出的所有数值列做整列运算，通过向量化的ifelse完成条件转换，不需要逐行写for循环
通过列索引直接把转换后的数值回写到原数据框对应位置

完整代码：

vec_df_fn <- function(data){
  # 生成数值列的布尔索引
  num_col_idx <- sapply(data, is.numeric)
  # 批量对数值列做转换
  data[num_col_idx] <- lapply(
    data[num_col_idx],
    function(col) ifelse(col < 0, abs(col) * 10, col)
  )
  return(data)
}

# 测试运行
print(vec_df_fn(df))

运行结果和循环版本完全一致：