如何将所有列联表汇总为一张？在 R 中

Question

我有许多列联表 (100)，在一个 excel 文件中收集了许多工作表。其中一些具有比其他更多的属性。但最后它们都有相同的列和行名称。 （更多或更少的属性）。 例如，假设我们有这 2 个表。

我想添加属于同一类的每个单元格（第一个表中的行 - Person1 类型 B 和列 B_1 单元格将与行 - 第二个表中的 Person1 类型 B 和列 B_1 单元格相加，依此类推）

决赛桌会是这样。注意 D 不在第一个表中，所以它将按原样存在。

我想将所有列联表汇总（池化）为一个具有所有可用属性的表。如何在 R 中实现这一点？

谢谢

Answer 1

由于您没有提供 excel 文件，我根据您提供的图像制作了一个文件..

看起来像这样

library(tidyverse)
library(tidyxl)
library(readxl)
library(data.table)
library(unpivotr)

file_to_read <- "./testdata.xlsx"
# Get all names of sheets in the file
sheet_names <- readxl::excel_sheets(file_to_read)
# Loop through sheets
L <- lapply(sheet_names, function(x) {
  all_cells <-
    tidyxl::xlsx_cells(file_to_read, sheets = x) %>%
    dplyr::select(sheet, row, col, data_type, character, numeric)
  # Cells with the actual data  
  cells_data <-
    dplyr::filter(all_cells, row >= 3, col >= 3) %>%
    dplyr::transmute(row, col, sheet = sheet, value = numeric)
  # Select the headers
  person.number.up <-
    dplyr::filter(all_cells, row == 1) %>%
    dplyr::select(row, col, person.number.up = character)
  person.type.up <- 
    dplyr::filter(all_cells, row == 2) %>%
    dplyr::select(row, col, person.type.up = character)
  person.number.left <-
    dplyr::filter(all_cells, col == 1) %>%
    dplyr::select(row, col, person.number.left = character)
  person.type.left <- 
    dplyr::filter(all_cells, col == 2) %>%
    dplyr::select(row, col, person.type.left = character)
  #put together
  final.df <- cells_data %>%
    unpivotr::enhead(person.number.up, "up-ish") %>%
    unpivotr::enhead(person.type.up, "up-ish") %>%
    unpivotr::enhead(person.number.left, "left-ish") %>%
    unpivotr::enhead(person.type.left, "left-ish") %>%
    dplyr::select(-(1:2))
})
# Put together in a data.table
DT <- data.table::rbindlist(L, use.names = TRUE)
# Cast to wide, summing values in the process
ans <- dcast(DT, person.number.left + person.type.left ~ person.number.up + person.type.up, 
      value.var = "value", 
      fun.aggregate = sum, na.rm = TRUE)