如何使ggplot2中的可变条宽度不重叠或间隙

Question

geom_bar似乎工作最好的时候,它有固定宽度的条-即使酒吧之间的空间似乎是由宽度来判定,根据文档.当你有可变宽度,然而,它并没有回应,因为我所期望的,从而导致不同的酒吧之间的重叠或空白(如图所示这里).

要了解我的意思,请尝试这个非常简单的可重复示例:

x <- c("a","b","c")
w <- c(1.2, 1.3, 4) # variable widths
y <- c(9, 10, 6) # variable heights

ggplot() + 
geom_bar(aes(x = x, y = y, width = w, fill=x), 
 stat="identity", position= "stack")

我真正想要的是不同的条形图只是触摸,但不重叠,就像在直方图中一样.

我试过添加position= "stack","dodge"和"fill,但没有工作.解决方案是存在geom_histogram还是我没有geom_bar正确使用？

PS看到问题与差距,尝试更换4用0.5在上面的代码,看到的结果.

Answer 1

似乎没有任何直接的解决方案,因此我们应该将x轴视为连续的w并且手动计算刻度线和条形中心所需的位置(这很有用):

# pos is an explicit formula for bar centers that we are interested in:
#        last + half(previous_width) + half(current_width)
pos <- 0.5 * (cumsum(w) + cumsum(c(0, w[-length(w)])))
ggplot() + 
  geom_bar(aes(x = pos, width = w, y = y, fill = x), stat = "identity") + 
  scale_x_continuous(labels = x, breaks = pos)