Beispielcode für Histogramm

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

# Histogramm erstellen
ggplot(plotData, aes(x = RT, group = pr, fill = pr)) + 
  geom_histogram(binwidth = 15, 
                 position = position_dodge()) +          # Balken nebeneinander
  # Achsenbeschriftungen
  scale_y_continuous("Häufigkeit") +
  scale_x_continuous("Reaktionszeit (in ms)") +
  # 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),
        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))