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

发布时间：2020-12-13 20:24:31 所属栏目：百科来源：网络整理

导读：我已经看到许多问题(通常与 Order Bars in ggplot2 bar graph相关),关于如何(重新)在条形图中排序类别. 我所追求的只是一个不同的触摸,但是我还没有找到一个很好的方法：我有一个多面的条形图,我想根据另一个变量来独立地为每个方面排列x轴在我的情况下,该变

我已经看到许多问题(通常与 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

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

（编辑：李大同）

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