ggplot条形图与面依赖类别的顺序

我已经看到许多问题(通常与 Order Bars in ggplot2 bar graph相关),关于如何(重新)在条形图中排序类别.

我所追求的只是一个不同的触摸,但是我还没有找到一个很好的方法：我有一个多面的条形图,我想根据另一个变量来独立地为每个方面排列x轴在我的情况下,该变量只是y值本身,即我只是希望在每个方面增加长度的条).

简单的例子,例如. Order Bars in ggplot2 bar graph：

df <- data.frame(name=c('foo','bar','foo','bar'),period=c('old','old','recent','recent'),val=c(1.23,2.17,4.15,3.65))
p = ggplot(data = df,aes(x = reorder(name,val),y = val))
p = p + geom_bar(stat='identity')
p = p + facet_grid(~period)
p

我们得到如下：

而我想要的是：

以前给出的原子示例是：

df <- data.frame(name=c('foo',3.65),stringsAsFactors=F)
df$n = as.numeric(factor(df$period))
df = ddply(df,.(period,name),transform,x=paste(c(rep(' ',n-1),collapse=''))
df$x = factor(df$x,levels=df[order(df$val),'x'])
p = ggplot(data = df,aes(x = x,y = val))
p = p + geom_bar(stat='identity')
p = p + facet_grid(~period,scale='free_x')
p

另一个例子,仍然有点傻,但更接近我的实际用例,将是：

df <- ddply(mpg,.(year,manufacturer),summarize,mixmpg = mean(cty+hwy))
df$manufacturer = as.character(df$manufacturer)
df$n = as.numeric(factor(df$year))
df = ddply(df,levels=df[order(df$mixmpg),y = mixmpg))
p = p + geom_bar(stat='identity')
p = p + facet_grid(~year,scale='free_x')
p = p + theme(axis.text.x=element_text(angle=90,hjust=1,vjust=.5,colour='gray50'))
p

闭上你的眼睛,想想帝国,并尝试享受.

（编辑：安卓应用网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!