我已经看到许多问题(通常与
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
闭上你的眼睛,想想帝国,并尝试享受.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。