如何基于向量名称对DataFrame列执行除法操作？

你可以用以下两种更简洁的方式实现需求，避免手动循环：

1. Base R 原生写法（无需额外包） #

利用R的向量广播特性，先匹配对应列的除数，缺失的除数设为1（除以1不改变原列值），然后直接对整个数据框做除法：

# 匹配df列名对应的x值，无对应值的设为1
divisors <- x[names(df)]
divisors[is.na(divisors)] <- 1

# 直接广播除法
df <- df / divisors

2. tidyverse (dplyr) 风格写法 #

如果你习惯tidyverse的语法，可以用across和any_of函数精准处理匹配的列：

library(dplyr)

df <- df %>%
  across(any_of(names(x)), ~ .x / x[cur_column()])

这里any_of(names(x))会自动筛选出df中存在的、在x里有对应名字的列，cur_column()会获取当前处理的列名，从而匹配x中对应的除数。

两种方法都能达到和循环一样的效果，且代码更简洁易读，效率也更高。

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