如何在lapply中按列索引对数据框列表应用lm函数？

你的代码逻辑没问题，直接用列索引在lm()里指定变量是完全可行的，不过这里提供几种更简洁或灵活的写法：

写法1：规范原代码的参数格式 #

my_lms_ESW <- lapply(listDF_ESW, function(x) {
  lm(x[,1] ~ x[,2] + x[,3] + x[,4], data = x)
})

只是把原代码里的x明确指定为data参数，符合lm()的标准调用习惯，可读性更强。

写法2：动态生成公式（便于后续调整与结果查看） #

如果之后需要修改参与回归的列范围，这种方式更灵活，而且回归结果的摘要会显示实际列名，方便你后续分析：

my_lms_ESW <- lapply(listDF_ESW, function(x) {
  # 定义因变量和自变量的列索引
  y_col <- 1
  x_cols <- 2:4
  # 拼接公式字符串并转换为公式对象
  reg_formula <- as.formula(paste(colnames(x)[y_col], "~", paste(colnames(x)[x_cols], collapse = " + ")))
  lm(reg_formula, data = x)
})

写法3：用subset简化自变量选择 #

通过subset()提取需要的自变量列，再用.代表所有提取出的列，代码更简洁：

my_lms_ESW <- lapply(listDF_ESW, function(x) {
  lm(x[,1] ~ ., data = subset(x, select = 2:4))
})

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