如何在ggplot facet中按值对数据进行排序

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  category = rep(c("A", "B", "C"), each = 4),
  value = c(10, 8, 6, 4, 12, 9, 7, 5, 15, 11, 13, 14)
)

# 使用reorder函数按值对数据进行排序
data$category <- reorder(data$category, data$value)

# 创建分面图
ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity") +
  facet_wrap(~ category, scales = "free") +
  xlab("Category") +
  ylab("Value")