2 / 2
本文に 319 文字追加
user avatar
user avatar

こういう事でしょうか?

> cbind(as.matrix(x), y, z)
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,]    1    1    4    7    1    4    7   10   13
[2,]    2    2    5    8    2    5    8   11   14
[3,]    3    3    6    9    3    6    9   12   15

> write.table(cbind(as.matrix(x), y, z), "test.csv",
              quote = F, sep=",", row.names = F, col.names = F)

行列にNAが含まれていて,NAの要素を詰めて出力する際にはどうしたら良いでしょうか

以下ではどうでしょうか。

apply(cbind(as.matrix(x), y, z), 1,
      function(r){
        write.table(t(r[!is.na(r)]), "test.csv",
                    append=T, quote = F, sep=",", row.names = F, col.names = F) })

append=T としていますので、複数回実行すると追記されていく事になります

user9156