下面是一个使用iris数据集和gtsummary包的示例。最初species是按字母顺序排列的（第一个表），但如果您重构变量，它将按您喜欢的顺序显示。

library(gtsummary)


tbl_summary(iris,
            by = "Species")

iris2 <- iris %>% 
          mutate(Species = factor(Species, levels =  c("versicolor", "setosa","virginica")))

tbl_summary(iris2,
            by = "Species")

在把数据放入表1之前，你必须把数据分解到相应的列中;也可以在表1中执行。

table1(
data = datatable %>%
mutate(subjectcc = factor(subjectcc, levels = c("Alabastor",
"Carlings", "Bohemia"), ordered = T),
~Running +
Yelling +
Sitting +
Drinking +
Smoking | .... )

下面是一个使用mappings包的解决方案，我模拟了一些数据来进行说明。

library(table1)
library(mappings)

# Simulate sample data
set.seed(123)
SDD <- expand.grid(Participant=1:4, subject_condition=c("Alabastor", "Carlings", "Bohemia"))
SDD$Running  <- sample(1:12, nrow(SDD), replace=T)
SDD$Sitting  <- sample(1:12, nrow(SDD), replace=T)
SDD$Yelling  <- sample(1:12, nrow(SDD), replace=T)
SDD$drinking <- sample(1:12, nrow(SDD), replace=T)
SDD$Smoking  <- sample(1:12, nrow(SDD), replace=T)

column_order <- mapping(c("Bohemia", "Carlings", "Alabastor"))

table1(~ Running + Sitting + Yelling + drinking + Smoking | column_order(subject_condition), data=SDD)