Rループの変数名の線形回帰モデルを実行する

Question

まず、私はかなりこれに私のメソッド/思考が間違っている可能性がありますので、私はRとRスタジオを使用してデータフレームにxlsxデータセットをインポートしました。単純な線形回帰を実行するために、列名をループして、すべての変数を正確に「」にすることができます。だからここに私のコードだ：

temp <- c() 
for(i in 1:length(col10)){ 
    temp = col10[[i]] 
    lm.test <- lm(Total_Transactions ~ temp[[i]], data = data) 
    print(temp) #actually prints out the right column names 
    i + 1 
} 

は、線形回帰モデルでこれらの変数を配置するループを実行することも可能です：ここで

indx <- grepl('_10_', colnames(data)) #list returns all of the true values in the data set 
col10 <- names(data[indx]) #this gives me the names of the columns I want 

はループのため私は、エラーを返す必要がありますか？私が得ているエラーは次のとおりです： "model.frame.defaultのエラー（数式= Total_Transactions〜temp [[i]]、変数の長さが違う（temp [[i]]"） "誰かが私を指すことができる場合

Answer 1

[OK]を、私は答えを投稿します。私は、EXAとしてデータセットmtcarsを使用します。 mple。私はそれがあなたのデータセットで動作すると信じています。
まず、店舗lm.test、クラスlistのオブジェクトを作成します。あなたのコードでは、ループのたびにlm(.)の出力を割り当てています。最後には最後のものしか持たないでしょう。他のものは全て新しいもので書き直されていました。
次に、ループ内で関数reformulateを使用して回帰式をまとめます。これを行う他の方法がありますが、これは簡単です。

# Use just some columns 
data <- mtcars[, c("mpg", "cyl", "disp", "hp", "drat", "wt")] 
col10 <- names(data)[-1] 

lm.test <- vector("list", length(col10)) 

for(i in seq_along(col10)){ 
    lm.test[[i]] <- lm(reformulate(col10[i], "mpg"), data = data) 
} 

lm.test 

ここでは、あらゆる種類の結果リストを使用できます。私はあなたのためにlapplyと友人を使用して開始することをお勧めします。要約を得るために

cfs <- lapply(lm.test, coef) 

：係数を抽出するために、例えば
、

smry <- lapply(lm.test, summary) 

あなたは*apply機能を理解してもらったことは非常に簡単になります。

Answer 2

回帰で使用される列のみを選択する一時的なサブセットを作成することができます。この方法では、式に一時的な名前を挿入する必要はありませんあなたのコードにまでこだわっ。

、これはトリックを行う必要があります。

for(i in 1:length(col10)){ 
tempSubset <- data[,c("Total_Transactions", col10[i]] 
lm.test <- lm(Total_Transactions ~ ., data = tempSubset) 
i + 1 
}