R语言按给定百分比数组逐列修改dataframe数值的实现方法

以下是两种常用的可直接运行的实现方案：

基础R实现（无需额外安装包） #

利用R内置的sweep函数可以直接完成按列匹配运算：

# 1. 转换百分比为调整系数，10%对应乘1.1、-10%对应乘0.9
adjust_coef <- 1 + percentage_change / 100
# 2. 按列应用系数完成数值调整
adjusted_data <- sweep(data, MARGIN = 2, adjust_coef, FUN = `*`)

代码说明 #

• MARGIN = 2 指定按列维度进行运算
• FUN = *`` 指定运算规则为每列所有数值乘以对应位置的调整系数
  运行后输出结果和需求示例完全匹配，测试输出如下：

> adjusted_data
    A   B   C  D  E
1 110 110 100 90 90
2 110 110 100 90 90
3 110 110 100 90 90
4 110 110 100 90 90
5 110 110 100 90 90

可选：tidyverse风格实现 #

如果日常使用dplyr处理数据，可以用mutate配合across实现：

library(dplyr)
adjust_coef <- 1 + percentage_change / 100
adjusted_data <- data %>%
  mutate(across(everything(), ~.x * adjust_coef[cur_column()]))

注意事项 #

需要确保percentage_change的长度和待调整的dataframe列数完全一致，避免出现不匹配的循环赋值错误。

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