R管道处理pivot_longer后题项变量q未按数字顺序排序问题咨询

当前存储题项标识的q列是普通字符向量，R对字符的默认排序逻辑是逐字符比对ASCII字典序，不会自动识别字符串内部嵌套的数值大小，才会出现Q1排完直接接Q10、Q12，跳过Q3、Q4的错位排序结果。

在原有管道流中增加两步核心逻辑：从q的字符串中提取Q前缀后的数字作为排序键，将q转换为匹配数值大小顺序的因子即可，不需要手动枚举所有题项的排序水平。
修正后的完整可运行代码：

tablecrt %>%
  pivot_longer(Q1.Op:Q22.Buy, names_to = "q", values_to = "val") %>%
  mutate(
    val = factor(val, levels = 9:1),
    # 核心修正代码
    q_sort_key = str_extract(q, "(?<=Q)\\d+") %>% as.numeric(),
    q = fct_reorder(q, q_sort_key)
  ) %>%
  select(-q_sort_key) %>% # 删除临时排序辅助列，避免干扰后续计算
  tabyl(val, product.or.block, q, show_na = TRUE)

• 代码中用到的正则提取(?<=Q)\\d+可以精准匹配Q前缀后面的连续数字串，转成数值型后即可作为排序的真实依据
• fct_reorder会按照数值键的大小自动调整q的因子水平顺序，后续tabyl在拆分题项生成分表时，会严格按照这个自定义顺序输出，和你期望的Q1.Op、Q3.Opi、Q4.JARaro、Q10.JAR、Q12.Af顺序完全一致
• 这套写法不需要手动罗列所有题项的排序规则，就算后续题项扩展到Q30及以上，也能自动适配正确的排序逻辑
• 临时生成的q_sort_key辅助列会在进入tabyl计算前删除，不会在最终输出中残留多余字段
• 上述代码依赖stringr（字符串提取）、forcats（因子重排）、janitor（tabyl函数所在包）三个包，前两个属于tidyverse生态，加载tidyverse即可自动引入

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