ggplot2：将条形图（geom_bar）的基线移动到最小数据值

Question

我正在尝试使用 geom_bar 生成条形图。我的柱状图既有负值也有正值：

set.seed(1)
df <- data.frame(y=log(c(runif(6,0,1),runif(6,1,10))),se=runif(12,0.05,0.1),name=factor(rep(c("a","a","b","b","c","c"),2),levels=c("a","b","c")),side=factor(rep(1:2,6),levels=1:2),group=factor(c(rep("x",6),rep("y",6)),levels=c("x","y")),stringsAsFactors=F)

此绘图命令绘制正柱面朝上，负柱面朝下：

library(ggplot2)
dodge <- position_dodge(width=0.9)
limits <- aes(ymax=y+se,ymin=y-se)
ggplot(df,aes(x=name,y=y,group=interaction(side,name),col=group,fill=group))+facet_wrap(~group)+geom_bar(width=0.6,position=position_dodge(width=1),stat="identity")+
geom_bar(position=dodge,stat="identity")+geom_errorbar(limits,position=dodge,width=0.25)

我的问题是如何将基线设置为所有条形中的最小值而不是 0 并且红色条形朝上？

Answer 1

您可以从每个值中减去 min(df$y)，以便将数据移动到零基线，然后将 y 轴重新标记为点的实际值。下面是执行此操作的代码，但我不推荐这样做。从非零基线发出条形图似乎令人困惑，因为条形图的长度不再编码 y 值的大小。

ggplot(df, aes(x=name,y=y - min(y),group=interaction(side, name), col=group, fill=group)) + 
  facet_wrap(~group) +
  geom_bar(position=dodge, stat="identity", width=0.8) +
  geom_errorbar(aes(ymin=y-se-min(y), ymax=y+se-min(y)), 
                position=dodge, width=0.25, colour="black") +
  scale_y_continuous(breaks=0:4, labels=round(0:4 + min(df$y), 1)) +
  geom_hline(aes(yintercept=0))

另一种选择是使用 geom_linerange，这样可以避免移动 y 值和重新标记 y 轴。但这与上面的条形图一样存在扭曲：

ggplot(df, aes(x=name, group=interaction(side, name), col=group, fill=group)) + 
  facet_wrap(~group) +
  geom_linerange(aes(ymin=min(y), ymax=y, x=name, xend=name), position=dodge, size=10) +
  geom_errorbar(aes(ymin=y-se, ymax=y+se), position=dodge, width=0.25, colour="black") +
  geom_hline(aes(yintercept=min(y)))

相反，在我看来，点比此处的条更直观、更自然：

ggplot(df, aes(x=name,y=y,group=interaction(side, name), col=group, fill=group)) + 
  facet_wrap(~group) +
  geom_hline(yintercept=0, lwd=0.4, colour="grey50") +
  geom_errorbar(limits, position=dodge, width=0.25) +
  geom_point(position=dodge)

Answer 2

这个简单的 hack 也有效：

m <- min(df$y) # find min
df$y <- df$y - m
ggplot(df,aes(x=name,y=y,group=interaction(side,name),col=group,fill=group))+
  facet_wrap(~group)+
  geom_bar(width=0.6,position=position_dodge(width=1),stat="identity")+
  geom_bar(position=dodge,stat="identity")+
  geom_errorbar(limits,position=dodge,width=0.25) +
  scale_y_continuous(breaks=seq(min(df$y), max(df$y), length=5),labels=as.character(round(seq(m, max(df$y+m), length=5),2))) # relabel

Answer 3

我运行遇到了同样的问题，发现您也可以使用 geom_crossbar 轻松地做到这一点。

只要颜色和填充相同，您就不会在横杆中看到中断（使用 y 美学设置），因此它们看起来完全像横杆。

library(ggplot2)

dodge <- position_dodge(width=0.9)
limits <- aes(ymax = y+se, ymin = y-se)
df$ymin <- min(df$y)

ggplot(df, aes(x = name, ymax = y, y = y, ymin = ymin, group = interaction(side,name), col = group, fill = group)) + 
facet_wrap(~group) + 
geom_crossbar(width=0.6,position=position_dodge(width=1),stat="identity") +
geom_errorbar(limits, color = 'black', position = dodge, width=0.25)

ggplot output

ggplot2：将条形图（geom_bar）的基线移动到最小数据值

ggplot2: Shift the baseline of barplot (geom_bar) to the minimum data value

r

ggplot2

geom-bar