Kombinierte bar-plot und Punkte in ggplot2

Ich würde gerne Grundstück eine "Kombination" bar-plot mit Punkten.
Betrachten Sie folgende dummy-Daten:

library(ggplot2)
library(gridExtra)
library(dplyr)

se <- function(x){sd(x)/sqrt(length(x))}

p1 <- ggplot(mtcars, aes(y=disp, x=cyl, fill=cyl)) 
p1 <- p1 + geom_point() + theme_classic() + ylim(c(0,500))

my_dat <- summarise(group_by(mtcars, cyl), my_mean=mean(disp),my_se=se(disp))

p2 <- ggplot(my_dat, aes(y=my_mean,x=cyl,ymin=my_mean-my_se,ymax=my_mean+my_se))
p2 <- p2 + geom_bar(stat="identity",width=0.75) +     geom_errorbar(stat="identity",width=0.75) + theme_classic() + ylim(c(0,500))

Die Letzte Handlung sollte wie folgt Aussehen:
Kombinierte bar-plot und Punkte in ggplot2

InformationsquelleAutor jokel | 2015-03-02
  1. 5

    Können Sie Ebenen hinzufügen zusammen, aber wenn Sie verschiedene Daten und/oder ästhetik werden Sie einschließen möchten data und aes Argumente in jeder grafischen Ebene. 

    p3 <- ggplot() +
    geom_bar(data=my_dat, aes(y=my_mean,x=cyl,ymin=my_mean-my_se,ymax=my_mean+my_se), stat="identity", width = 0.75) + 
    geom_errorbar(data=my_dat, aes(y=my_mean,x=cyl,ymin=my_mean-my_se,ymax=my_mean+my_se), width = 0.75) +
    geom_point(data=mtcars, aes(y=disp, x=cyl, fill=cyl)) +
    ylim(c(0,500)) +
    theme_classic()

    Wenn Sie möchten, machen Sie es so, dass das die Punkte sind an der Seite der bars, Sie könnte subtrahieren eines offset von der cyl-Werte bewegen sich über die Punkte. Wie @LukeA erwähnt, durch die änderung der geom_point zu geom_point(data=mtcars, aes(y=disp, x=cyl-.5, fill=cyl)).

    • Oder geom_point(data=mtcars, aes(y=disp, x=cyl-.5, fill=cyl)) um den gewünschten Versatz.
    InformationsquelleAutor GregF
  2. 2

    Können Sie angeben, jede Schicht einzeln zu ggplot2. Oft sind Sie mit den gleichen Daten-frame und Optionen für jede geometrie, so macht es Sinn, zum festlegen von Standardeinstellungen in ggplot(). In Ihrem Fall sollten Sie jede geom separat:

    library(ggplot2)
library(gridExtra)
library(dplyr)

se <- function(x){sd(x)/sqrt(length(x))}
my_dat <- summarise(group_by(mtcars, cyl),
                    my_mean = mean(disp),
                    my_se = se(disp))
p1 <- ggplot() + 
  geom_bar(data = my_dat,
           aes(y = my_mean, x = cyl,
               ymin = my_mean - my_se,
               ymax = my_mean + my_se), stat="identity", width=0.75) + 
  geom_errorbar(data = my_dat,
                aes(y = my_mean, x = cyl,
                    ymin = my_mean - my_se,
                    ymax = my_mean + my_se), stat="identity", width=0.75) + 
  geom_point(data = mtcars, aes(y = disp, x = cyl, fill = cyl)) +
  theme_classic() + ylim(c(0,500))

p1
    InformationsquelleAutor Phil
Schreibe einen Kommentar