如何在ggsummarytable中获取手动排序或x轴

library(ggplot2)

# 创建一个数据框
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(10, 20, 30, 40)
)

# 创建一个ggsummarytable
summary_table <- ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity") +
  labs(x = "Category", y = "Value") +
  ggtitle("Summary Table")

# 指定x轴的顺序
x_order <- c("C", "A", "D", "B")
summary_table <- summary_table + scale_x_discrete(limits = x_order)

# 显示ggsummarytable
print(summary_table)