ggplot2: geom_pointrange() facet_grid() mit coord_flip() und freien Skalen

Question

Ich versuche, ein Diagramm mit den Schätzungen und Konfidenzintervalle aus der gleichen Regression für eine Reihe von Ländern zu generieren. Ich führte die Regressionen unter Verwendung dplyr 's group_by(country), und dann aggregierte ich alle Ergebnisse in einen Datenrahmen mit broom' s tidy().

Wenn Sie die Grafik von diesem Datenrahmen zu schaffen (die so genannten bycountry1), betreiben ich den folgenden Code:

ggplot(bycountry1, aes(x = country, y = estimate, ymin = estimate - std.error * 2, ymax = estimate + std.error * 2)) + 
    geom_hline(yintercept = 0, colour = "black", lty = 2) + 
    geom_pointrange() + 
    coord_flip() + facet_grid(. ~ term, scales = "free") 

Das ist, was ich will, mit der Ausnahme, dass ich das haben möchte Skalen für jede Box unterschiedlich sein, so dass sie alle mehr wie die religious1 Box aussehen würde. Da dies die Variable mit der größten Variabilität ist, dominiert sie die Skala, und in den meisten der anderen Boxen können Sie die Varianz nicht sehen. Wie der Code oben zeigt, habe ich scales = "free" in facet_grid() angegeben und ich habe alle Varianten versucht, auch mit facet_wrap(), und ich kann das nicht zum Funktionieren bringen.

Answer 1

Nach dem Vorschlag von Aosmith, ich habe es funktioniert mit geom_errorbarh und Entfernen coord_flip(). Ich musste auch die height der geom_errorbarh auf 0 setzen und eine geom_point für die Schätzung hinzufügen. Hier ist der Code:

ggplot(bycountry1, aes(y = country, x = estimate, xmin = estimate - std.error * 2, xmax = estimate + std.error * 2)) + 
    geom_vline(xintercept = 0, colour = "black", lty = 2) + 
    geom_point() + 
    geom_errorbarh(height = 0) + 
    facet_grid(. ~ term, scales = "free") 

Und das resultierende Bild