按 list() 变量名而不是 R 中的索引重命名

Question

我正在使用 for 循环对项目的 list() 进行回归，我想用该变量的名称而不是其索引替换对给定列表输入的引用。例如:

frame <- data.frame(y = rnorm(10), x1 = rnorm(10), x2 = rnorm(10), x3 = rnorm(10) ) 
x.list <- list(frame$x1,frame$x2,frame$x3)  
fit <- list()

for(i in 1:length(x.list)){ fit[[i]] <- summary(lm(frame$y ~ x.list[[i]]))}         
fit

我希望适合的每个项目都引用“x1”、“x2”、“x3”而不是“x.list[[i]]”。感谢您对此有任何想法。

Answer 1

不要定义x.list，只是遍历名称:

fit <- vector("list",3)
for ( i in c("x1","x2","x3") ) fit[[i]] <- summary(lm(frame$y ~ frame[[i]]))

---

改为保存 lm。您可能需要的不仅仅是摘要，所以只需保存 lm: p>

xs     <- c("x1","x2","x3")
xs     <- setNames(xs,xs)
fit_lm <- lapply(xs,function(i)lm(frame$y ~ frame[[i]]))

你可以用lapply(fit_lm,summary)查看summary，也可以用

查看系数

sapply(fit_lm,`[[`,"coefficients")
#                    x1         x2          x3
# (Intercept) 0.1417501  0.2974165  0.25085281
# frame[[i]]  0.2318912 -0.1468433 -0.08783857