R语言创建交叉表时如何正确转换行列得到预期结构表格

你的代码存在两处核心问题，导致输出结果不符合预期：

• pivot_wider()的names_from参数传错了变量：当前你指定的是cut，所以函数会把cut的5个水平展开成单独的列，自然不会生成你要的carat3和color2组合列。
• 代码里没有显式生成color2变量，也没有提前固定分类变量的因子顺序，就算改对宽表参数，也很容易出现列顺序错乱的问题。

1. 先在数据处理第一步生成两个衍生分类变量，提前锁死因子水平顺序，避免自动排序打乱你要的列规则：
   • color2：diamonds数据集里color的水平从优到劣为D、E、F、G、H、I、J，前3个归为good，后4个归为bad，手动设置因子顺序为bad在前、good在后
   • carat3：调用cut_number(carat, 3)把克拉值按等频拆成3个区间，保留默认从小到大的区间顺序
2. 分组计算中位数时，行维度变量cut放在分组第一位，列维度的carat3、color2依次放在后面，保证汇总结果的层级顺序正确
3. 宽表转换时，把carat3和color2同时传给names_from参数，指定两个变量的拼接顺序，就能生成按要求排列的组合列。

library(tidyverse)

diamonds %>%
  mutate(
    color2 = if_else(color %in% c("D", "E", "F"), "good", "bad") %>% 
      fct_relevel("bad", "good"),
    carat3 = cut_number(carat, 3)
  ) %>%
  group_by(cut, carat3, color2) %>%
  summarise(price = median(price, na.rm = TRUE), .groups = "drop") %>%
  pivot_wider(
    names_from = c(carat3, color2),
    values_from = price,
    values_fill = 0,
    names_sep = " / "
  )

运行后生成的表格，行是5个cut水平，6个数据列严格按照要求排序：最低克拉区间bad组→最低克拉区间good组→中等克拉区间bad组→中等克拉区间good组→最高克拉区间bad组→最高克拉区间good组。

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