如何在geom_bar中根据条形值对条形图进行排序？

library(ggplot2)

# 创建示例数据集
df <- data.frame(category = c("A", "B", "C", "D"),
                 value = c(20, 10, 30, 15))

# 对数据集按照value进行排序
df_sorted <- df %>% arrange(value)

# 绘制条形图，并按照排序后的顺序进行排序
ggplot(df_sorted, aes(x = category, y = value)) +
  geom_bar(stat = "identity") +
  scale_x_discrete(limits = df_sorted$category)