将数据帧拆分为多个输出文件

本文介绍了将数据帧拆分为多个输出文件的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我有大数据集(但例如以下是小数据集).我可以拆分数据帧，然后我想输出到与用于拆分的 lavel 对应的多个文本文件.

I have big dataset (but the following is small one for example). I can split the dataframe and then I want to output to multiple text file corresponding to lavel used to split.

mydata <- data.frame (var1 = rep(c("k", "l", "c"), each = 5), var2 = rnorm(5), var3 = rnorm(5)) mydata var1 var2 var3 1 k 0.5406022 0.3654706 2 k -0.6356879 -0.9160001 3 k 0.2946240 -0.1072241 4 k -0.2609121 0.1036626 5 k 0.6206579 0.6111655 6 l 0.5406022 0.3654706 7 l -0.6356879 -0.9160001 8 l 0.2946240 -0.1072241 9 l -0.2609121 0.1036626 10 l 0.6206579 0.6111655 11 c 0.5406022 0.3654706 12 c -0.6356879 -0.9160001 13 c 0.2946240 -0.1072241 14 c -0.2609121 0.1036626 15 c 0.6206579 0.6111655

现在分开

> spt1 <- split(mydata, mydata$var1) > spt1 $c var1 var2 var3 11 c 0.5406022 0.3654706 12 c -0.6356879 -0.9160001 13 c 0.2946240 -0.1072241 14 c -0.2609121 0.1036626 15 c 0.6206579 0.6111655 $k var1 var2 var3 1 k 0.5406022 0.3654706 2 k -0.6356879 -0.9160001 3 k 0.2946240 -0.1072241 4 k -0.2609121 0.1036626 5 k 0.6206579 0.6111655 $l var1 var2 var3 6 l 0.5406022 0.3654706 7 l -0.6356879 -0.9160001 8 l 0.2946240 -0.1072241 9 l -0.2609121 0.1036626 10 l 0.6206579 0.6111655

我想以outputc、outputk和outputl的名义写.table.因此，输出是通用前缀，后跟用于分组变量的标签名称.

I want to write.table in name of outputc, outputk, and outputl. Thus output is common prefix followed by name of label for grouping variable.

write.table (spt1)

推荐答案

在 spt1 的名称上使用 lapply 将允许我们访问 spt1 中的数据帧以及我们可以在粘贴中使用的名称来创建我们的文件.

Using lapply over the names of spt1 will allow us to access the dataframes in spt1 and the name that we can use in paste to create our files.

lapply(names(spt1), function(x){write.table(spt1[[x]], file = paste("output", x, sep = ""))})

如果需要，您可以在粘贴中添加通用扩展名.

You could add a common extension in the paste if you want.