如何制作排序的geom_bar（）ggplot

Question

我的数据框称为：

带有变量名称的

d3：course_name,id,total_enrolled,total_capacity

我做了：

d3a <- head(d3[order(d3$total_capacity, decreasing = T),], 15)
d3.plottable <- d3a[, c(1,3,4)]
d3.plottable <- melt(d3.plottable, id.vars = "course_name")

library(ggplot2)

g <- ggplot(d3.plottable, aes(x = course_name, y = value))
g + geom_bar(aes(fill = variable), position = position_dodge(), stat = "identity") + 
  coord_flip() + theme(legend.position = "top")
g <- g + labs(x = "Course Name")
g <- g+ labs(y = "Number of Students")
g

我得到的是：

无论我做什么，我都无法按降序排列橙色条。 有没有办法做到这一点？我想对变量total_enrolled进行排序。

PS：我为格式错误的代码道歉，我仍在计算堆栈溢出。

Answer 1

以下是重新定义UTF8级别顺序的示例。

注意，由于您不提供样本数据，我将模拟一些数据。

factor