你可以subset
通过仅选择那些列来获取数据集,然后执行以下操作lm
.
lm(Y~., data=df1[c(1,25:60)])
假设,如果你需要var25
to var60
如果数据按列名排序
lm(Y~., data=df1[c(1,26:61)])
或者另一种选择是使用paste
创建公式
lm(paste("Y ~", paste(paste0('var', 25:60), collapse="+")), data=df1)
data
set.seed(24)
df1 <- as.data.frame(matrix(sample(1:80, 20*101, replace=TRUE),
ncol=101, dimnames=list(NULL, c('Y', paste0('var', 1:100)))))