0

伙计们，我有一个代码可以生成 2 列数据（例如数字、中位数），这些数据指的是一个特定的人……但我已经对 7 个人进行了抽样，所以基本上我得到了这个输出：

[[1]
Number Median
1       5
2       3  
.....
[[2]]
Number Median
1       6
2       4
....
[[3]]
Number Median
1       3
2       5

所以我基本上得到了这个输出....直到 [[7]] 我尝试使用这个代码在 excel 中传输这个输出

write.csv(cbind(data),"data1.csv")

我得到这种类型的输出：

list(c(Median =.......It lists all the median on the rows

但我希望它在 NOT ROWS 列中保存引用“中位数”和“数字”的数据

如果我只是输入

write.csv(data,"data1.csv")

我收到一个错误

arguments imply differing number of rows: 157, 179, 178, 180
4

2 回答 2

2

正如 Marius 所说，您有一个无法写入文件list的内容。你需要做：data.frames.csv

NewDataFrame <- do.call("rbind", YourList)
write.csv(NewDataFrame, "Data.csv")

do.call从 a 中获取每个元素list并将您告诉它的任何功能（在本例中rbind）应用于所有元素。

于 2013-03-06T00:41:02.563 回答
0

这里有两个选项。两者都使用以下示例数据：

myList <- list(data.frame(matrix(1:4, ncol = 2)),
               data.frame(matrix(3:10, ncol = 2)),
               data.frame(matrix(11:14, ncol =2)))
myList
# [[1]]
#   X1 X2
# 1  1  3
# 2  2  4
# 
# [[2]]
#   X1 X2
# 1  3  7
# 2  4  8
# 3  5  9
# 4  6 10
# 
# [[3]]
#   X1 X2
# 1 11 13
# 2 12 14

选项 1：编写一个 csv 文件，其中data.frames 按原样显示list

sink("list_of_dataframes.csv", type="output")
invisible(lapply(myList, function(x) dput(write.csv(x))))
sink()

如果您在文本编辑器中打开生成的“list_of_dataframes.csv”文件，您将得到如下所示的内容。当您将其读入电子表格程序时，第一列将包括行名并NULL分隔每个data.frame：

"","X1","X2"
"1",1,3
"2",2,4
NULL
"","X1","X2"
"1",3,7
"2",4,8
"3",5,9
"4",6,10
NULL
"","X1","X2"
"1",11,13
"2",12,14
NULL

选项 2：编写或搜索cbind适应data.frame具有不同行数的 binding 的版本。

这是我编写的一个这样的函数。

cbind2 <- function(datalist) {
  nrows <- max(sapply(datalist, nrow))
  expandmyrows <- function(mydata, rowsneeded) {
    temp1 = names(mydata)
    rowsneeded = rowsneeded - nrow(mydata)
    temp2 = setNames(data.frame(
      matrix(rep(NA, length(temp1) * rowsneeded),
             ncol = length(temp1))), temp1)
    rbind(mydata, temp2)
  }
  do.call(cbind, lapply(datalist, expandmyrows, rowsneeded = nrows))
}

这是应用于您的列表的功能：

cbind2(myList)
#   X1 X2 X1 X2 X1 X2
# 1  1  3  3  7 11 13
# 2  2  4  4  8 12 14
# 3 NA NA  5  9 NA NA
# 4 NA NA  6 10 NA NA

该输出应该很容易write.csv与相关功能一起使用。

于 2013-03-09T07:37:34.960 回答