如何在 ggsummarytable 中获取手动订单或 x 轴

Question

在 ggboxplot 中获得了正确的顺序（第一个比 Post 更早），但无法在 ggsummarytable 中使用（也尝试使用 asc. 和 desc 进行排序.).我添加了一个简短的可重现示例。

Pre <- runif(50, 5.0, 7.5)
Post <- runif(50,6.5,10)
pre_string <- rep("Pre", times = length(Pre))
post_string <- rep("Post", times = length(Post))

data_merge<-c(Pre,Post)
prepost_merge<-(c(pre_string,post_string))
prepost_merge<-as.factor(prepost_merge)


df<-data.frame(data_merge)
df$group <- prepost_merge
head(df, 2)

# CREATE TABLE #
summary.stats <- df %>%
  group_by(group) %>%
  get_summary_stats(type = "full")

summary.plot <- ggsummarytable(
  summary.stats, x = "group", y = c("n", "median", "q1","q3"),variablename="", order = (c("Pre","Post")),
  ggtheme = theme_bw(),axis.line.x = element_blank(), axis.line.y = element_blank(),label_value = "",legend="none",
) + theme_pubr(
  base_size = 8,
  base_family = "",
  border = TRUE,
  margin = TRUE,
  x.text.angle = 0
)  + labs(x="",y="")

可重现的例子 -

顺序错误（需要先post）

Answer 1

和ggplot2一样，ggsummarytable也可以根据因子水平进行排序。

library(ggpubr)

#Give the factor levels in the order that you want
summary.stats$group <- factor(summary.stats$group, c('Pre', 'Post'))


ggsummarytable(
  summary.stats, x = "group", y = c("n", "median", "q1","q3"),
  variablename="", order = (c("Pre","Post")),
  ggtheme = theme_bw(),
  axis.line.x = element_blank(), 
  axis.line.y = element_blank(),
  label_value = "",legend="none",
) + theme_pubr(
  base_size = 8,
  base_family = "",
  border = TRUE,
  margin = TRUE,
  x.text.angle = 0
)  + labs(x="",y="")

如何在 ggsummarytable 中获取手动订单或 x 轴

How to get manual order or x-axis in ggsummarytable

r

summary

ggplot2