我已经看到许多问题(通常与
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
我们得到如下：
而我想要的是：
好的,所有的哲学都放在一边,如果有人有兴趣,这里是一个丑陋的做法.这个想法是使用不同的标签(认为粘贴(句点,名称),除了将句点替换为0空格,1空格等,以使它们不显示).我需要这个情节,我不想安排grobs等,因为我可能想分享一个常见的传说等.
以前给出的原子示例是：
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
闭上你的眼睛,想想帝国,并尝试享受.
