我正在使用 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]]”。感谢您对此有任何想法。
最佳答案
不要定义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
关于按 list() 变量名而不是 R 中的索引重命名,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30134397/