如何用循环或函数基于34个变量生成经IQR除法+对数转换的新变量？

你的代码有几个关键问题导致无法生成34个新变量：

1. 用c(df$variable1, df$variable2, etc.)把多列数据合并成了单个长向量，循环时没法对应原数据框的单个变量，而且计算的IQR是整个合并向量的，不是每个变量自身的。
2. 循环里每次都给同一个列df$newvariable_IQR_log赋值，会覆盖之前的结果，最后只保留最后一个变量的转换值。

下面给你三种可行的实现方法：

方法一：修正for循环（基础R） #

先定义要处理的变量名列表，然后循环每个变量完成转换并添加新列：

# 替换成你的34个变量名
exposure_names <- c("variable1", "variable2", "variable3")

for (var in exposure_names) {
  # 计算当前变量的IQR（忽略NA值，避免报错）
  iqr_val <- IQR(df[[var]], na.rm = TRUE)
  # 执行转换：除以IQR后取对数
  transformed_val <- log(df[[var]] / iqr_val)
  # 新增列，列名为原变量名+后缀
  df[[paste0(var, "_IQR_log")]] <- transformed_val
}

方法二：用dplyr简化代码（tidyverse风格） #

如果习惯用tidyverse工具，across函数可以批量处理变量，代码更简洁：

library(dplyr)

exposure_names <- c("variable1", "variable2", "variable3")

df <- df %>%
  mutate(across(all_of(exposure_names), 
                ~ log(.x / IQR(.x, na.rm = TRUE)),
                .names = "{col}_IQR_log"))

.names = "{col}_IQR_log"会自动把新列命名为原变量名_IQR_log，不用手动拼接。

方法三：用sapply批量处理（基础R） #

用sapply对目标列批量执行转换，再合并回原数据框：

exposure_names <- c("variable1", "variable2", "variable3")

# 批量生成转换后的变量
transformed_data <- sapply(df[exposure_names], function(x) {
  log(x / IQR(x, na.rm = TRUE))
})

# 重命名转换后的列
colnames(transformed_data) <- paste0(exposure_names, "_IQR_log")

# 合并到原数据框
df <- cbind(df, transformed_data)

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