以下是用R语言中的patternplot包的patternbar函数画一个非常漂亮的柱状图，X轴从左到右变量从大到小排序，柱状图颜色由分类一填充，柱状图底纹由分类二填充的代码，请把代码写正确

library(patternplot)

# 虚构数据
data <- data.frame(category1 = rep(c("A", "B", "C"), each = 5),
category2 = rep(c("D", "E"), each = 2, times = 5),
value = rnorm(15, mean = 50, sd = 10))

# 按照value从大到小排序
data <- data[order(data$value, decreasing = TRUE),]

# 画图
patternbar(data$value, data$category1, pattern = data$category2,
xlab = "Category", ylab = "Value",
main = "Patternbar Example", col = brewer.pal(n = 3, name = "Set1"))