在R中循环遍历变量：批量计算敏感性并命名结果

AI 小北

2026-8-20

解决方案

可以用for循环结合动态变量名赋值来实现需求，具体代码如下：

# 生成需要遍历的变量名列表（var55到var90）
var_list <- paste0("var", 55:90)

# 获取varA为1的总数，避免重复计算提升效率
varA_total <- sum(di$varA == 1)

# 遍历每个变量计算敏感度
for (var in var_list) {
  # 计算当前变量的敏感度
  sens_value <- sum(di[[var]] == 1 & di$varA == 1) / varA_total
  # 生成对应的结果变量名（sens+末尾数字）
  sens_name <- paste0("sens", sub("var", "", var))
  # 将结果赋值到对应变量
  assign(sens_name, sens_value)
}

代码解释：

var_list <- paste0("var", 55:90)：自动生成var55到var90的变量名称字符串列表，无需手动逐个输入。
varA_total <- sum(di$varA == 1)：提前计算varA为1的总数，避免循环中重复计算，提升运行效率。
di[[var]]：通过变量名字符串动态访问数据框列，是循环中访问列的标准写法。
sub("var", "", var)：从变量名（如var55）中移除前缀var，得到末尾数字55，再拼接sens得到目标变量名sens55。
assign(sens_name, sens_value)：将计算结果赋值给对应的sensXX变量，实现动态命名。