Beispielcode für Boxplots

# Daten einlesen
load("BeispieldatenRaw.rda")

library(ggplot2)


# Reihenfolge der Faktorstufen für Präparat festlegen
plotData$pr <- factor(plotData$pr, 
                      levels = c("Konkurrenz", "Alt", "Neu")) 

# Labels der Faktorstufen für Aura festlegen
plotData$gewichtD <- factor(plotData$gewichtD, 
                            levels = c(1, 2, 3),
                            labels = c("Kinder", "Normalgewicht", "Übergewicht"))

# Reihenfolge und Labels der Faktorstufen für Aura festlegen
plotData$aura <- factor(plotData$aura, 
                        levels = c("Aura", "noAura"),
                        labels = c("Aura", "keine Aura"))

# Boxplot erstellen
ggplot(plotData, aes(x = gewichtD, y = RT, group = pr, fill = pr)) + 
  geom_boxplot() +          
  # Achsenbeschriftungen
  scale_y_continuous("Reaktionszeiten (in ms)",
                     # Ticks in 50 ms Abständen
                     breaks = seq(100, 500, by = 50)) +
  scale_x_discrete("Gewichtsgruppen") +
  # Legende: Beschriftung & Farben festlegen
  scale_fill_manual("Präparat", 
                    values = c("#990000", "#339999", "#339900")) +
  facet_wrap(~ aura) +                                   # Facetten erstellen
  theme(# Schriftgröße verändern
        axis.text.y = element_text(size = 20),           # Ticks
        axis.text.x = element_text(size = 15, 
                                   # Labels rotieren & nach unten verschieben
                                   angle = 45, vjust = 0.5),
        axis.title.x = element_text(size = 20),          # Titel
        axis.title.y = element_text(size = 20), 
        strip.text = element_text(size = 15),            # Facetten
        legend.text = element_text(size = 12.5),         # Legenden
        legend.title = element_text(size = 15),
        # Position der Legende
        legend.position = c(0.85, 0.8))