Ich habe das Problem, dass bei meiner Kreuztabelle die gleichen Werte für die Mittelwerte und Standardabweichungen pro Gruppe rauskommen. Leider verstehe ich nicht, wo das Problem liegt und mein Betreuer meinte, dass das eigentlich nicht sein kann. Ich würde mich sehr über eure Hilfe freuen

Hier der Code:
# Berechnung des Mittelwerts für die Zeilen der Spalten "Trust1" bis "Trust9"
> mean_trust <- rowMeans(data[, c("Trust1", "Trust2", "Trust3", "Trust4", "Trust5", "Trust6", "Trust7", "Trust8", "Trust9")], na.rm = TRUE)
> # create a cross tabulation with means and standard deviations of mean_trust by Stimulus (EX01)
> tabelle_Trust_Mean_EX01 <- data %>%
+ group_by(EX01) %>%
+ summarise(
+ Mean = mean(mean_trust),
+ SD = sd(mean_trust)
+ )
> tabelle_Trust_Mean_EX01
# A tibble: 4 × 3
EX01 Mean SD
<avector> <dbl> <dbl>
1 1 4.36 1.29
2 2 4.36 1.29
3 3 4.36 1.29
4 4 4.36 1.29