如何對分類變量的級別進行字母數字排序以傳遞到 R 中的 gtsummary 表

Question

我希望按 1-2-10 排序等級。
我知道如果在 case_when 我使用數字（即 1 而不是“1”，...）內部，這將解決問題，但在我的實際情況下，我必須將值保留為字符。
在 gtsummary 手冊中，它使用了sort屬性。 我將它設置為字母數字，但我仍然無法得到我想要的。
還有其他方法可以對字母數字變量的級別進行排序嗎？

library(gtsummary)
trial2 <- trial %>% 
    dplyr::select(trt, age, grade) %>%
mutate(grade = case_when(grade == "I" ~ "1",
                         grade == "II" ~ "10",
                         TRUE ~ "2"))

trial2 %>%
    tbl_summary(by = trt,
                sort = list(
                           grade ~ "alphanumeric")) %>%
    add_p() %>%
    modify_footnote(update = everything() ~ NA) %>%
     bold_labels()

Answer 1

你可以考慮字符變量來獲得你想要的順序嗎：

library(gtsummary)
library(dplyr)

trial2 <- trial %>% 
  dplyr::select(trt, age, grade) %>%
  mutate(grade = case_when(grade == "I" ~ "1",
                           grade == "II" ~ "10",
                           TRUE ~ "2"),
         grade = factor(grade, levels = c("1","2","10")))

trial2 %>%
  tbl_summary(by = trt) %>%
  add_p() %>%
  modify_footnote(update = everything() ~ NA) %>%
  bold_labels()