我有一个数据框列表。每个数据框具有相同的列名和不同的行数。我想将列表中的每个数据框导出到自己的csv文件中。文件名应该是数据框的名称。我查看了几个论坛帖子尝试不同的建议,但许多要么没有工作或给了我一个空白的csv文件。我看过的大多数帖子都是4岁左右,因此可能是其中的一部分。
这是我目前的代码:
#Export each data frame within a list
export = function(data){
filename = function(x) paste(names(data[[x]]), ".csv");
write.csv(data, filename,);
}
export(data)
我得到的错误是
"Error in data.frame(list(Column1 = c(1L, 2L, 3L, 4L, :
arguments imply differing number of rows: 62, 49, 41, 55, 39, 32, 34
然后我想,也许我需要在write.csv中使用data[[x]]
来阅读:
write.csv(data[[x]], filename,)
但是这给了我错误"Error in is.data.frame(x): object 'x' not found"
这是我的数据框列表的结构。
str(data)
List of 10
$ :'data.frame': 62 obs. of 6 variables:
..$ TQ: Factor w/ 396 levels "V0Q1",..: 167 168 97 192 2 98 193 194 99 3 ...
..$ CO : int [1:62] 1 1 1 1 1 1 1 1 1 1 ...
..$ PhP : int [1:62] 166576 565275 1091111 1181342 1735982 2237418 2354002 3869267 6155933 7027686 ...
..$ Position : num [1:62] 0 0.456 2.419 2.63 3.792 ...
..$ D : Factor w/ 2 levels "D2012",..: 1 1 1 2 1 1 2 2 1 1 ...
..$ bin_index : int [1:62] 1 1 1 1 1 2 2 2 3 3 ...
$ :'data.frame': 49 obs. of 6 variables:
..$ TQ: Factor w/ 396 levels "V03Q1",..: 227 169 228 229 230 231 232 233 234 235 ...
..$ CO : int [1:49] 2 2 2 2 2 2 2 2 2 2 ...
..$ PhP : int [1:49] 805189 2219895 3386011 3999185 4430767 4644792 5223962 5392366 6052813 6136478 ...
..$ Position : num [1:49] 0.16 5.95 9.87 12.69 15.22 ...
..$ D : Factor w/ 2 levels "D2012",..: 2 1 2 2 2 2 2 2 2 2 ...
..$ bin_index : int [1:49] 1 2 2 3 4 4 4 4 5 5 ...
$ :'data.frame': 41 obs. of 6 variables:
..$ TQ: Factor w/ 396 levels "V03Q",..: 28 257 258 105 144 29 106 30 145 259 ...
..$ CO : int [1:41] 3 3 3 3 3 3 3 3 3 3 ...
..$ PhP : int [1:41] 1055462 2022884 2222474 2269935 3497149 3755007 5079223 6855634 7091838 10284891 ...
..$ Position : num [1:41] 1.3 4.94 7.52 8.34 11.28 ...
..$ D : Factor w/ 2 levels "D2012",..: 1 2 2 1 1 1 1 1 1 2 ...
..$ bin_index : int [1:41] 1 1 2 2 3 3 4 5 6 8 ...
有什么建议吗?谢谢。
答案 0 :(得分:7)
发生错误是因为您尝试将列表传递给write.csv
,但它需要data.frame。它有助于将列表强制转换为data.frame,但并不成功并告诉您。你需要遍历列表。循环有不同的可能性,但我喜欢这样的好的旧for
循环。
试试这个(未经测试):
for (i in seq_along(data)) {
filename = paste(names(data)[i], ".csv")
write.csv(data[[i]], filename)
}
当然你可以将它包装在一个函数中。
修改强>
显然,列表元素未命名。试试这个:
for (i in seq_along(data)) {
filename = paste(i, ".csv")
write.csv(data[[i]], filename)
}