将Data.Table写为csv文件

Question

我有一个data.table，其中的列中有列表值。以下是Dput：

dput(df2)

structure(list(a = list(structure(5594.05118603497, .Names = "a"), 
structure(8877.42723091876, .Names = "a"), structure(2948.95666065332, 
.Names = "a"), 
structure(5312.77623937465, .Names = "a"), structure(676.637044992807, 
.Names = "a"), 
structure(323.104243007498, .Names = "a")), b = 
list(structure(3.90258318853593e-06, .Names = "b"), 
structure(3.89772483584672e-06, .Names = "b"), structure(3.91175458242421e- 
06, .Names = "b"), 
structure(3.90169532031545e-06, .Names = "b"), structure(6.54536728417568e- 
06, .Names = "b"), 
structure(6.59087917747312e-06, .Names = "b")), id = 1:6), .Names = c("a", 
"b", "id"), class = c("data.table", "data.frame"), row.names = c(NA, 
-6L), .internal.selfref = <pointer: 0x0000000000220788>)

输出内容如下：

head(df2)

          a            b id
1: 5594.051 3.902583e-06  1
2: 8877.427 3.897725e-06  2
3: 2948.957 3.911755e-06  3
4: 5312.776 3.901695e-06  4
5:  676.637 6.545367e-06  5
6: 323.1042 6.590879e-06  6

当您第一次看到它时看起来不错，但是如果您进一步查看它，这就是我想要选择一列的样子：

如何将df2更改为普通数据帧，而在a和b中没有这样的额外值呢？我正在尝试将此文件写入csv，但是我不允许这样做，因为它说有向量作为值。

谢谢！

编辑：

这是生成列表的代码：

test<-sapply(  split( df , df$ID), 
function(d){ dat <- list2env(d)
nlsfit <- nls( form = y ~ a * (1-exp(-b * x)), data=dat, 
start= list( a=max(dat$y), b=b.start),
           control= control1) 

list(a = coef(nlsfit)[1], b = coef(nlsfit)[2])} )
df1<-as.data.frame(t(test))

Answer 1

加载正确的软件包，查看其帮助页面，搜索“ csv”，然后按照“用法”部分进行操作：

library(data.table)
help(pac=data.table)
fwrite(df2, file="~/test.csv") # for mac, need changing for other OS

另一种方法可能是：

 as.data.frame( lapply(df2, unlist) )