列名、列数が異なる２データを結合するrbindの使い方

Question

よくあることだと思うのですが、明確な解答が見つからないため質問させていただきます。

###列名、列数が異なる配列をrbind（もしくは他の方法で）1つに結合する方法

上記についてご教示ください。

具体的に行なっていた作業を紹介させていただきますと

ステップワイズ法を用いた重回帰モデルを複数作成しておりまして、そのモデル1つ1つの回帰係数を全てまとめた1つのファイルを作成したいと考えております。

そこで

modelname <- "model1"
lm_train <- step(lm(O_variable~. , date = E_variable))
rbind(modelname, lm_train$call)

という風にして逐次的に複数の（名前、モデル）を繋げたファイルをcsvにして出力したいと考えています。

もちろん上のでは動きませんが、rbindをpythonの.appendのように柔軟に使える方法をご教示いただけませんでしょうか？

Answer 1

lmtrain$codeがどんなデータなのかわかりませんが、たぶんベクトルなのだろうと勝手に想像しておきます。

csvに出力するべき所定の列の構成に対して、それぞれの列のデータがlmtrain$codeにあるかチェックし、あるならその値、無いときはNAを入れたベクトルを作り、rbindしていけばいいと思います。

以下、こんなイメージということで。

# 出力する列の構成
cols <- c("col1","col2","col3")

# 適当なテストデータ
d1 <- c(1,2,3)
d2 <- c(1,3)
d3 <- c(2,3)
names(d1) <- c("col1","col2","col3")
names(d2) <- c("col1","col3")
names(d3) <- c("col2","col3")
d <- list(d1, d2, d3)

# 出力
out <- data.frame()
for(i in 1:length(d)){
　x <- sapply(cols, function(col){
    ifelse(col %in% names(d[[i]]), d[[i]][[col]], NA)
  })
  out <- rbind(out, x)
}
colnames(out) <- cols
print(out)

write.csv(out, file="out.csv", na="", quote=F, row.names=F)

Comments

[I_KAMAKURA]

lm_train$callは、変数名とその回帰係数を表した２×変数の数のテーブルになります。
やはりnaで足りない列数を補完してやるしかなさそうですね。
ありがとうございました！