如何让pivot_longer生成与melt函数完全一致的输出？

问题背景 #

使用reshape2::melt处理数据后，结果按Day1到Day5的顺序分组展示每个Day下的所有County；但tidyverse::pivot_longer默认按原始数据的行（County）展开，先输出一个County的所有Day，再输出下一个，导致两者顺序不一致。

解决方案 #

要让pivot_longer生成与melt完全一致的输出，可通过以下两种方式实现：

方法1：转换后直接排序

在pivot_longer之后添加arrange(Day, County)，强制按Day优先排序，再按County排序，完全匹配melt的输出顺序：

disease_data %>%
  pivot_longer(
    cols = !County,
    names_to = "Day",
    values_to = "Num.Cases"
  ) %>%
  arrange(Day, County) %>%
  pander()

方法2：转换时指定Day为有序因子

将Day转换为因子类型，同时指定因子水平为原始数据中Day列的顺序（Day1到Day5），再按Day排序：

disease_data %>%
  pivot_longer(
    cols = !County,
    names_to = "Day",
    values_to = "Num.Cases",
    # 把Day转成因子，水平为原始数据中除County外的列名顺序
    names_transform = list(Day = ~ factor(., levels = colnames(disease_data)[-1]))
  ) %>%
  arrange(Day) %>%
  pander()

原因说明 #

• melt的默认输出逻辑：先遍历所有变量（Day1到Day5），每个变量下遍历所有id行（County A、County B）。
• pivot_longer的默认输出逻辑：遍历原始数据的每一行，将该行的所有指定列展开为多行，因此先输出一个County的所有Day，再输出下一个County。

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