r - 如何使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)

Answer 2

您现在可以使用mekko包执行此操作：https ://cran.r-project.org/web/packages/mekko/vignettes/mekko-vignette.html