Как сделать переменную ширину полосы в ggplot2 не перекрывать или зазор

geom_bar, по-видимому, лучше всего работает, когда он имеет фиксированные полосы ширины - даже пробелы между столбцами, по-видимому, определяются по ширине, согласно documentation. Однако, когда у вас есть переменная ширина, он не реагирует так, как я ожидал бы, что приведет к перекрытию или разрыву между различными столбцами (как показано ниже ).

Чтобы понять, что я имею в виду, попробуйте этот очень простой воспроизводимый пример:

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 правильно?

geom-plot overlap

P.s. чтобы увидеть проблему с пробелами, попробуйте заменить 4 на 0.5 в приведенном выше коде и посмотреть результат.

Ответы

Ответ 1

Кажется, что нет простого решения, поэтому мы должны рассматривать ось х как непрерывную с точки зрения w и вручную вычислять требуемые позиции для тиков и баров (this полезно):

# 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)

enter image description here