将 Excel xml 文件读入 R答案

【问题标题】：Read Excel xml file into R将 Excel xml 文件读入 R
【发布时间】：2017-01-30 19:28:24
【问题描述】：

我正在尝试使用 xml2 读取 Excel xml 文件，但我遇到了困难，因为我拥有的文件与 xml2 文档中用于示例的结构非常不同。我想从工作簿中读取其中一个工作表并将其用作数据框。

这个sn-p包含了完整的结构，但是只有一个单元格填充了一堆文本，而我要读取的是50,000行数据。

<?xml version='1.0'?>
<?mso-application progid='Excel.Sheet'?>
<s:Workbook xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:s="urn:schemas-microsoft-com:office:spreadsheet">
  <s:Worksheet s:Name="DBCitation">
    <s:Table>
      <s:Row>
        <s:Cell>
          <s:Data s:Type="String">The suggested citation for your download is below. See metadata folder and citationsyntax.xls for more explanation</s:Data>
        </s:Cell>
      </s:Row>
      <s:Row>
        <s:Cell>
          <s:Data s:Type="String" />
        </s:Cell>
      </s:Row>
      <s:Row>
        <s:Cell>
          <s:Data s:Type="String">Acosta-Martinez, Veronica ; Balkcom, Kipling; Caesar-TonThat, Thecan; Franzluebbers, Alan; Gollany, Hero; Jabro, Jalal; Jin, Virginia; Johnson, Jane; Liebig, Mark; Phillips, Rebecca; Sainju, Upendra; Sistani, Karamat; Skinner, R; Smith, Douglas; Stevens, William; Stott, Diane; Varvel, Gary; Venterea, Rodney; Acosta-Martinez, Veronica; Archer, David; Barbour, Nancy; Bucholtz, Dennis; Dell , Curtis ; Dillard, Anthony; Gross, Jason; Johnson, Holly; Knapp, Steven; Polumsky, Robert; Simmons, Jason; Upchurch, Dan; Waldron, Sarah; Weyers, Sharon; Wood, Charles; Zobeck, Ted; 2017; Daily Weather; Weather Station; Greenhouse Gas Flux Measurement; Supporting Research Measurement; All Cell Comments; All locations; ; 1929-2015; Database ver. og=gn08222 Fort Collins, CO: USDA-ARS REAP Database. File downloaded 1/30/2017 12:08:20 PM. PID:d4fa2478b1b144f58333e8a433e838b9</s:Data>
        </s:Cell>
      </s:Row>
    </s:Table>

【问题讨论】：

为什么不使用为读取 Excel 文件而制作的包，例如 readXL、XLConnect 等？
我以为这些只是针对 .xls 或 .xlsx 的？
一个xlsx 只是压缩了xml 文档。我打赌你可以压缩你的文件并使用它们就好了。虽然也许我误解了你的文件。
似乎可以以“本机”Excel 格式和 XML 格式存储 Excel 文件。上面的 sn-p 来自 XML 格式，“普通”Excel 格式阅读器似乎无法阅读..

标签： r xml2

【解决方案1】：

你可以使用gnumeric package的函数read.gnumeric.sheet。

否则，使用 xml2 您可以执行以下操作：

readExcelXML <- function(filename, sheet) {
  doc <- read_xml(filename)
  ns <- xml_ns(doc)
  rows <- xml_find_all(doc, paste0(".//s:Worksheet[@s:Name='", sheet, "']/s:Table/s:Row"), ns = ns)
  values <- lapply(rows, . %>% xml_find_all(".//s:Cell/s:Data", ns = ns) %>% xml_text %>% unlist)

  columnNames <- values[[1]]

  dat <- do.call(rbind.data.frame, c(values[-1], stringsAsFactors = FALSE))
  names(dat) <- columnNames

  dat
}

要从 XML 中获取正确的列类型，您需要添加：

  # assign types from file (automatically),
  # NB: hard-coded 2nd row of the data to take types from
  types <- rows[[2]] %>% xml_find_all(".//s:Cell/s:Data") %>% xml_attrs %>% unlist %>% setNames(nm = names(dat))
  funcs <- c("Number" = as.numeric, "String" = as.character, "DateTime" = . %>% as.POSIXct(format = "%Y-%m-%dT%H:%M:%S."))

  for (iCol in names(dat)) {
    dat[[iCol]] <- funcs[[types[iCol]]](dat[[iCol]])
  }

到函数。

【讨论】：