将数据帧中的每一列拆分为一个向量，然后写入目录R

Question

可能是一件微不足道的任务，但是我做对了。

我有一个{200,000列的data.frame。目的是将这200,000个单独的列拆分为200,000个列向量，并使用write.csv将每个向量写入目录。 .csv文件的名称应与data.frame中的名称相同。

示例：

N=10
obs=data.frame(replicate(10,runif(100)))
n = paste0("col", 1:N); colnames(obs) = n

感谢您提供有关如何拆分列和写入文件的帮助。

谢谢。

Answer 1

for(i in 1:ncol(obs)) {
  write.csv(obs[,i, drop = F], paste0('PATH/', names(obs)[i], '.csv'))
}

将PATH部分更改为所需的目录。或者，您可以setwd('PATH')并删除paste0

中的第一部分

Answer 2

data want;
set have;
call streaminit(24); *fixes random number stream for reproduciblilty;
new_var = vectorProp * rand('laplace', 1, 0.1);
run;