如何对类别变量的级别进行字母数字排序，以传递给R中的to汇总表

Question

我要把等级定为1-2-10。

我知道如果在case_when中我使用数字(即1而不是"1"，.)这将解决问题，但在我的实际情况下，我必须将这些值保留为字符。

在gt汇总手册中，它使用了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()