R语言中如何对数据框指定多列批量计算N次幂

通过列名匹配定位所有目标列后批量执行平方计算，可直接复现以下代码：

复现原始数据 #

df <- read.table(text = "Time1  Time2   Time3   location1   Time4   Location2    Time5   Time6  Location3   Time7
2   1   0   2   1   0   3   0   2   1
 ", header = TRUE)

批量计算的两种常用方案 #

方案1：Base R 原生实现（无需加载额外依赖包） #

# 筛选所有列名包含location关键词的列，自动兼容大小写差异
target_cols <- grep("location", names(df), ignore.case = TRUE)
# 对匹配到的列批量做平方运算并赋值回原数据框
df[target_cols] <- df[target_cols]^2

方案2：dplyr 管道写法（适配tidyverse生态） #

library(dplyr)
df <- df %>%
  # across函数批量匹配目标列，统一执行平方计算
  mutate(across(matches("location", ignore.case = TRUE), ~.x^2))

注意事项 #

• 匹配列名时必须开启 ignore.case = TRUE 参数，否则会仅匹配到小写开头的location1列，遗漏两个大写L开头的Location2、Location3列，导致计算结果不符合预期。
• 数值0做平方运算结果仍为0，因此Location2列的数值0不会有可见变化，属于正常现象。
• 计算完成后的数据框与预期结果完全一致：所有Time类列保留原始值，location类列完成平方计算（location1从2变为4，Location3从2变为4）。

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