Wie erstelle ich in R Studio ein Liniendiagramm mit Pre-Post-Vergleich, das die Streuung und die Verbindung der beiden Zeitpunkte anzeigt?

Um in R Studio ein Liniendiagramm mit einem Pre-Post-Vergleich zu erstellen, das die Streuung anzeigt und die Verbindung der beiden Zeitpunkte darstellt, kannst du die `ggplot2`-Bibliothek verwenden. Hier ist ein Beispiel, wie du das umsetzen kannst:

1. Installiere und lade die `ggplot2`-Bibliothek, falls du sie noch nicht installiert hast:

```R
install.packages("ggplot2")
library(ggplot2)
```

2. Erstelle ein Beispiel-Datenset:

```R
# Beispiel-Daten erstellen
data <- data.frame(
Zeit = rep(c("Pre", "Post"), each = 10),
Wert = c(rnorm(10, mean = 50, sd = 5), rnorm(10, mean = 55, sd = 5)),
Gruppe = rep(1:10, 2)
)
```

3. Berechne den Mittelwert und die Standardabweichung für die Streuung:

```R
library(dplyr)

summary_data <- data %>%
group_by(Zeit) %>%
summarise(
Mittelwert = mean(Wert),
SD = sd(Wert)
)
```

4. Erstelle das Liniendiagramm:

```R
ggplot(data, aes(x = Zeit, y = Wert, group = Gruppe)) +
geom_line(aes(color = as.factor(Gruppe)), alpha = 0.5) + # Linien für jede Gruppe
geom_point(aes(color = as.factor(Gruppe)), alpha = 0.5) + # Punkte für jede Gruppe
geom_errorbar(data = summary_data, aes(x = Zeit, ymin = Mittelwert - SD, ymax = Mittelwert + SD), width = 0.2) + # Fehlerbalken
geom_point(data = summary_data, aes(x = Zeit, y = Mittelwert), size = 4, color = "black") + # Mittelwerte
labs(title = "Pre-Post Vergleich mit Streuung",
x = "Zeitpunkt",
y = "Wert") +
theme_minimal()
```

In diesem Beispiel wird ein Liniendiagramm erstellt, das die Werte für die Pre- und Post-Zeitpunkte zeigt, die Streuung durch Fehlerbalken darstellt und die Verbindung zwischen den beiden Zeitpunkten durch Linien zwischen den Gruppen anzeigt. Du kannst die Daten und Parameter nach Bedarf anpassen.