尝试从具有不同 table 格式的长 PDF 中抓取

Question

我正在尝试从此处提供的 276 页 PDF 中抓取内容：https://www.acf.hhs.gov/sites/default/files/documents/ocse/fy_2018_annual_report.pdf

不仅文档很长，而且还有不同格式的表格。我尝试使用 tabulizer 库中的 extract_tables() 函数。这成功地抓取了从文档第 143 页开始的数据表，但不适用于第 18-75 页的表。这些页面是不可删除的吗？如果是，为什么？

我收到错误消息，指出“列数多于列名”和“不允许重复 'row.names'”

child_support_scrape <- extract_tables(
  file   = "C:/Users/Jenny/Downloads/OCSE_2018_annual_report.pdf", 
  method = "decide", 
  output = "data.frame")

Answer 1

因为 pdf 文件中的文本不是以纯文本格式存储的。通常很难从 pdf 文件中提取文本。以下方法提供了从 pdf 中提取 table 的替代方法。它需要 pdftools 和 plyr 包。

# Download the pdf file as a variable in R
pdf_text <- pdftools::pdf_text("https://www.acf.hhs.gov/sites/default/files/documents/ocse/fy_2018_annual_report.pdf")

# Focus on the table in page 22
pdf_text22 <- strsplit(pdf_text[[22]], "\n")[[1]]

# Reformat the table using "regular expression"
pdf_text22 <- strsplit(pdf_text22, " {2,100}")

# Convert the table in a data frame
pdf_text22 <- plyr::rbind.fill(lapply(pdf_text22, function(x) as.data.frame(t(matrix(x)))))

可能需要额外的格式来美化数据框。

尝试从具有不同 table 格式的长 PDF 中抓取

trying to scrape from long PDF with different table formats

r

pdf

data-extraction

pdf-scraping

tabulizer