r - 使用ggplot2和R创建帕累托图

Question

我一直在努力使用ggplot2软件包在R中制作Pareto Chart。在许多情况下，制作条形图或直方图时，我们希望项目按X轴排序。在帕累托图表中，我们希望项目按Y轴上的值降序排列。有没有办法让ggplot绘制由Y轴上的值排序的项目？我尝试首先对数据帧进行排序，但ggplot似乎对其进行了重新排序。

例:

val <- read.csv("http://www.cerebralmastication.com/wp-content/uploads/2009/11/val.txt")
val<-with(val, val[order(-Value), ])
p <- ggplot(val)
p + geom_bar(aes(State, Value, fill=variable), stat = "identity", position="dodge") + scale_fill_brewer(palette = "Set1")

数据帧val已排序，但输出如下所示:


(来源: cerebralmastication.com)

Hadley正确地指出，这将产生一个更好的图形来显示实际值与预测值:

ggplot(val, aes(State, Value)) + geom_bar(stat = "identity", subset = .(variable == "estimate"), fill = "grey70") + geom_crossbar(aes(ymin = Value, ymax = Value), subset = .(variable == "actual"))

返回:


(来源: cerebralmastication.com)

但这仍然不是帕累托图。有小费吗？

Answer 1

ggplot2中的条按因子中的水平顺序进行排序。

val$State <- with(val, factor(val$State, levels=val[order(-Value), ]$State))