行数の上限を設定するR

Rからタブ区切りのtxtファイルをエクスポートしようとしましたが、80番目の項目ごとに行を変更したいと思います。例えば行数の上限を設定するR

、

a<-rep(1,200)

次に、行200 1Sがあります。私は以下のコードでベクトルをエクスポートします。

write.table(t(a), "a.csv", ,sep="\t", col.names = F, row.names = F)

しかし、私は80番目の項目の次の行に進みたいと思います。言い換えれば、行の上限を80に設定したいと考えています。

ありがとうございます！

出典

2016-12-20 Aytaç Karabay

おそらく 'lst < - split（a、（seq_along（a）-1）％/％80 + 1）が必要です。 ; m1 < - do.call（rbind、lapply（lst、 'length < - '、max（lengths（lst））））; write.table（m1、 "a.csv"、sep = "\ t"、col.names = FALSE、row.names = FALSE） ' – akrun

ありがとう！それは十分な答えだった： –

答えとして私のコメントを掲載。 [ここ]（http://stackoverflow.com/help/someone-answers）にチェックを入れることもできます。 – akrun

我々は、すべてのlist要素に等しくなるとwrite.table

lst <- split(a, (seq_along(a)-1)%/%80 + 1) 
m1 <- do.call(rbind, lapply(lst, `length<-`, max(lengths(lst)))) 
write.table(m1, "a.csv", sep="\t", col.names = FALSE, row.names=FALSE)

を使用してファイルにそれを書くために lengthをパディングした後、「」 rbind、 %/%で作成したグループを使用してベクトルの listに list要素を分割することができます

出典

2016-12-21 15:22:14 akrun

答えて

関連する問題