我从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
如何提取列表的值才能导出?
发布于 2019-05-14 03:20:54
下面的代码将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")
https://stackoverflow.com/questions/56117778
复制相似问题