如何编写 R 代码将 PDF 转换为 Excel (.xlsx)?

问题描述

我正在尝试将 PDF 文件转换为 Excel。我正在提供 PDF 前两页的屏幕截图以及我正在寻找的 excel 格式的结果。 PDF 的前两页有 25 行条目,在第三张图片中以 excel 格式显示。 PDF 的第一页有一些标题(关于公司的信息),在 PDF 的后续页面中没有遵循。我知道 R 上有 pdftools 和 pdftables 包,但 pdftables 包对可以免费转换的页数有限制。

我使用了来自 R StackOverflow 的以下代码(在 R Script pdf to excel using pdftools 之后)并且没有像我预期的那样得到列的分界(我正在寻找的输出是第三个数字 - 附加图像中的 excel 格式)。我相信我在下面指定 tx2 和 tx3 的方式有误。对这种转换的任何帮助将不胜感激!谢谢

library(pdftools)
library(stringr)
tx <- pdf_text("Charges.pdf")
tx2 <- unlist(str_split(tx,"[\\r\\n]+"))
tx3 <- str_split_fixed(str_trim(tx2),"\\s{2,}",5)
df <- as.data.frame(tx3)
library(writexl)
write_xlsx(df,col_names = TRUE,format_headers = TRUE,"charges.xlsx")

我正在寻找的原始 PDF 和 excel 格式:

1

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)