删除ggplot2 geom_bar中栏之间的空格

Question

我希望一起"躲避"一个条形图的酒吧.以下R代码在条形之间留下空白区域.像这样的其他答案显示了如何为组的条形部分实现此目的,但这似乎不适用于x轴上每个因子的不同条形.

require(ggplot2)
dat <- data.frame(a=c("A", "B", "C"), b=c(0.71, 0.94, 0.85), d=c(32, 99, 18))

ggplot(dat, aes(x= a, y = b, fill=d, width = d/sum(d))) +
  geom_bar(position=position_dodge(width = 0.1), stat="identity")

使用宽度变量可以改变外观,但似乎不可能让条形并排放置,同时仍然保留它们有意义的宽度差异(在此图中也用填充颜色冗余表示).

Answer 1

我会首先生成我的x位置和宽度,然后将它们传递到美学并覆盖以使您的因子标签:

首先,存储宽度

dat$width <-
  dat$d / sum(dat$d)

然后,假设您的data.frame按照您希望绘制的顺序排列,您可以将位置设置为宽度的累积和.但请注意,累积总和是您想要条形右边缘的位置,因此要获得中心,您需要减去宽度的一半:

dat$loc <-
  cumsum(dat$width) - dat$width/2

然后,将其全部传递给ggplot通话,明确设置标签:

ggplot(dat, aes(x= loc, y = b, fill=d, width = width)) +
  geom_bar(stat="identity") +
  scale_x_continuous(breaks = dat$loc
                     , labels = dat$a)

给

我不确定这个appproach的可行性,但这应该完成工作.

Answer 2

可以使用连续的x轴并重新标记它。

ggplot(dat, aes(x=cumsum(d/sum(d))) - d/sum(d)/2, y = b, fill=d, width=d/sum(d))) +
  geom_bar(stat="identity", position=position_dodge()) +
  scale_x_continuous(breaks=cumsum(dat$d/sum(dat$d)) - dat$d/sum(dat$d)/2, labels=dat$a)

或者这不是您要寻找的东西