如何基于因子创建带结果值的多向表？

我太懂你这种需求了——搜出来的全是做频率计数的交叉表，完全不是你要的带实际结果值的多维结构化表格！其实在R里用现成的包就能轻松实现，不用手动处理，下面给你两种适配多因子场景的解决方案：

先构造可复现的示例数据 #

首先把你给出的示例数据转换成R可直接使用的对象：

df <- data.frame(
  Trial = c("A", "A", "A", "A", "B", "B", "B", "B"),
  Room = c(1, 1, 2, 2, 1, 1, 2, 2),
  Mechanism = c("Straight", "Bendy", "Straight", "Bendy", "Straight", "Bendy", "Straight", "Bendy"),
  Result = c(0.5, 0.2, 0.7, 0.3, 0.6, 0.2, 0.6, 0.2)
)

方法1：用tidyverse（dplyr + tidyr）实现 #

这是最直观的方法，用pivot_wider来重塑数据，轻松生成双层列头的表格：

library(tidyverse)

# 重塑数据，将Room和Trial作为列维度
result_table <- df %>%
  pivot_wider(
    id_cols = Mechanism,          # 行维度：Mechanism
    names_from = c(Room, Trial),  # 列维度：先Room，再Trial，生成组合列名
    values_from = Result          # 填充的数值：Result
  ) %>%
  # 调整列顺序，匹配你想要的输出结构
  select(Mechanism, `1_A`, `1_B`, `2_A`, `2_B`)

# 给列名设置成双层表头格式（用换行符模拟）
names(result_table) <- c("Mechanism", "Room 1\nA", "Room 1\nB", "Room 2\nA", "Room 2\nB")

# 查看结果
print(result_table)

运行后会得到和你期望几乎一致的输出：

Mechanism Room 1\nA Room 1\nB Room 2\nA Room 2\nB
1  Straight       0.5       0.6       0.7       0.6
2     Bendy       0.2       0.2       0.3       0.2

方法2：用data.table实现（如果你习惯用data.table） #

如果你更倾向于data.table的语法，用dcast也能快速实现：

library(data.table)

setDT(df)

# 重塑数据，行是Mechanism，列是Room和Trial的组合
result_dt <- dcast(
  df,
  Mechanism ~ Room + Trial,  # 行~列的公式
  value.var = "Result"       # 填充的数值列
)

# 调整列顺序和命名
setcolorder(result_dt, c("Mechanism", "1_A", "1_B", "2_A", "2_B"))
setnames(result_dt, c("Mechanism", "Room 1\nA", "Room 1\nB", "Room 2\nA", "Room 2\nB"))

print(result_dt)

适配多因子场景的扩展 #

如果你的实际数据有6个多水平因子，只需要调整列维度的变量组合即可：

• 用tidyverse的话，把names_from = c(Room, Trial)改成names_from = c(因子1, 因子2, ..., 因子N)
• 用data.table的话，把Mechanism ~ Room + Trial改成Mechanism ~ 因子1 + 因子2 + ... + 因子N

这样就能自动生成对应维度的交叉表，完全不用手动处理。

生成真正的双层表头（可选） #

如果想要输出更美观的分组双层表头（不是用换行符模拟），可以用gt包可视化：

library(gt)

result_table %>%
  gt() %>%
  tab_header(title = "多因子结果交叉表") %>%
  # 把列头分组为Room 1和Room 2
  tab_spanner(
    label = "Room 1",
    columns = c(`Room 1\nA`, `Room 1\nB`)
  ) %>%
  tab_spanner(
    label = "Room 2",
    columns = c(`Room 2\nA`, `Room 2\nB`)
  ) %>%
  # 把下层列头改成A/B
  cols_label(
    `Room 1\nA` = "A",
    `Room 1\nB` = "B",
    `Room 2\nA` = "A",
    `Room 2\nB` = "B"
  )

这个代码会生成一个带真正分组表头的表格，和你期望的输出完全一致。

内容的提问来源于stack exchange，提问作者SK4ndal