と
df <- data.frame(week = rep(1:7, each = 2), value = round(rnorm(14), 2))
各週を 1 つのファイルとしてdf
7 つの (列に応じて) 個別のファイルに書き出したいと考えています。week
例えば:
1.tsv
1 0.49
1 1.04
2.tsv
2 0.40
2 0.97
...
7.tsv
7 -0.03
7 0.52
私はこれを思いついた:
for (wk in unique(df$week)) {
write.table(df[df$week == wk, ]
, file = paste(wk, ".tsv", sep = "")
, sep = "\t", row.names = F, col.names = F, quote = F)
}
for
しかし、ループを使用せずに仕事をするためのより良い方法があるかどうか興味がありました.
ありがとう!