排序barplot列ggplot

Question

我有這樣的R代碼裏面的代碼生成以下barplot：

d <- data.frame(case = c(1,2,3,4), 
       var=c('foo', 'foo', 'foo', 'foo','bar', 'bar', 'bar', 'bar'), 
       val=c(9,2,2,4,6,1,2,3)) 
d$var <- as.factor(d$var) 
d$case <- as.factor(d$case) 
ggplot(d, aes(x = case, y = val, fill = var)) + scale_x_discrete() + geom_bar(position="dodge") 

我怎樣才能通過「酒吧」的價值吧排序？

免責聲明：這可能是https://stackoverflow.com/questions/10746342/sorting-ggplot2-box-plot-by-2-columns重複，但這沒有得到回答，所以...

Answer 1

使用order度日值排序的列bar和foo複製它。然後使用此列爲x。

d$case <- match(d$val[d$var == "bar"], sort(d$val[d$var == "bar"])) 
d$case <- factor(d$case, levels=1:4) 
# now use this: 
ggplot(d, aes(x = case, y = val, fill = var)) + 
     geom_bar(position="dodge", stat="identity") 

（或相當於）

ggplot(d, aes(x= order, fill = var)) + geom_bar(aes(weights=val), position="dodge")