如何在R中制作这个比较排名的图？

# 导入所需包
library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  Category = c("A", "B", "C", "D"),
  Value = c(10, 8, 6, 4)
)

# 按照Value的大小对Category进行排序
data <- data[order(data$Value), ]

# 创建比较排名图
ggplot(data, aes(x = Category, y = Value)) +
  geom_bar(stat = "identity", fill = "blue") +
  coord_flip() +
  labs(x = "Category", y = "Value", title = "Comparison Ranking Chart")