Question

我从pdf文件中提取了数据，现在我需要导出（excel，txt等）。数据为列表格式。

我尝试过

capture.output(summary(text_lists), file = "My New File.txt")

但结果是

>Length Class  Mode     
> [1,] 60     -none- character

> [2,] 62     -none- character

> [3,] 60     -none- character

> [4,] 60     -none- character

然后我尝试了

>lapply(text_lists, function(x) write.table( data.frame(x), 'test.csv'  , >append= T))

>[[1]]
>NULL

>[[2]]
>NULL

>[[3]]
>NULL

我如何提取列表的值以能够导出？

Answer 1

以下代码将text_lists转换为每个列表只有一列的数据帧，然后输出一个.csv文件，每个列表将位于其自己的列中。希望这有助于您实现目标。

maxlen <- max(sapply(text_lists, length))

res <- tibble::as_tibble(do.call(cbind,lapply(text_lists, `length<-`, maxlen)), .name_repair = "universal");

write.csv(res,"test.csv")

导出R列出值

1 个答案: