Wie man variable Balkenbreiten in ggplot2 nicht überlappt oder Lücken macht

Question

geom_bar scheint am besten zu funktionieren, wenn es feste Balken hat - auch die Abstände zwischen den Balken scheinen durch die Breite zu bestimmen, laut documentation. Wenn Sie variable Breiten haben, reagiert es jedoch nicht wie erwartet, was zu Überlappungen oder Lücken zwischen den verschiedenen Balken führt (wie gezeigt here).

Um zu sehen, was ich meine, versuchen Sie dieses sehr einfach reproduzierbares Beispiel:

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

Was ich wirklich will, ist für die verschiedenen Bars nur berühren zu sein, aber nicht überlappen, wie in einem Histogramm.

Ich habe versucht, position= "stack", "dodge" und "fill hinzuzufügen, aber keine Arbeit. Liegt die Lösung in geom_histogram oder verwende ich einfach nicht geom_bar richtig?

P. S. Um das Problem mit Lücken zu sehen, ersetzen Sie 4 durch 0.5 in dem obigen Code und sehen Sie das Ergebnis.

Answer 1

scheint, dass es keine einfache Lösung ist, so sollten wir x-Achse als kontinuierliche hinsichtlich w und manuell berechnen erforderlichen Positionen für Zecken und bar Zentren (this ist nützlich) behandeln:

# 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

Sie können dies jetzt tun mit dem mekko Paket: https://cran.r-project.org/web/packages/mekko/vignettes/mekko-vignette.html