Deutsches R-Forum

Verfasst: **Mo Jun 21, 2021 2:13 pm**

Hallo,

ich habe einen Datensatz im long-Format vorliegen mit Variablen zur Codierung der ID, der Bedingung (1-4) und dem Wert in einem Fragebogen. Zum Vergleich der Unterschiede in den vier Bedingungen habe ich 4 Boxplots erstellt:

: Boxplot.png (4.84 KiB) 2608 mal betrachtet

Nun habe ich die Aufgabe, Ausreißer zu identifizieren und in den Abbildungen die jeweiligen IDs darzustellen. Ich habe bereits über boxplot.stats(data$Variable)$out versucht, die Ausreißer zu identifizieren und über mtext der Grafik hinzuzufügen. Im Ergebnis von boxplot.stats()$out werden mir jedoch keine Ausreißer angezeigt (numeric(0)). Ich vermute, dass es daran liegen könnte, dass ich hier nicht nach den Bedingungen gruppiert habe (?). Ist das möglich?

Über is.outlier() werden mir Outlier angezeigt, ich finde hier aber keine geeignete Möglichkeit, die zugehörigen IDs im Boxplot darzustellen. Da es sich um recht viele Outlier handelt, kann man bei geom_text() leider nicht mehr allzu viel erkennen.

Gibt es hier noch andere Möglichkeiten?

Vielen lieben Dank im Voraus und viele Grüße
Sophia

Verfasst: **Mo Jun 21, 2021 3:25 pm**

Bitte ein reproduzierbares Beispiel posten.

Verfasst: **Mo Jun 21, 2021 4:12 pm**

Hier habe ich meinen bisherigen Code für die ersten 5 Versuchspersonen meines Datensatzes:

Code: Alles auswählen

data <- read.csv('data')

res.aov_1 <- get_anova_table(anova_test(
  data = data, dv = Variable, wid = id, within = Bedingung))
pwc_1 <- data %>%
  pairwise_t_test(Variable ~ Bedingung, paired = TRUE,p.adjust.method = "bonferroni")%>% 
  add_xy_position(x = "Bedingung")

bxp_1 <- ggboxplot(data, x = "Bedingung", y = "Variable", add = "point", color = "Bedingung", palette = "npg") + 
  stat_pvalue_manual(pwc_1)+
  labs(subtitle = get_test_label(res.aov_1, detailed = TRUE), caption = get_pwc_label(pwc_1)) +
  stat_summary (fun=mean, geom="crossbar", color="orange")
bxp_1

Als Dateianhang habe ich den Datensatz hinzugefügt.

Genügt das zur Reproduktion oder fehlen noch weitere Infos?

Vielen Dank im Voraus!

Verfasst: **Fr Jun 25, 2021 12:39 pm**

Ansonsten würde es mir auch erst einmal reichen, in einer neuen Spalte im Datensatz mit 0 und 1 zu codieren, ob es sich um einen Ausreißer handelt oder nicht. Leider weiß ich nicht, wie ich die Ergebnisse, die ich über identify_outlier() erhalte, "übertragen" kann

Verfasst: **Mi Jul 07, 2021 1:40 pm**

Hallo Sophia.

SophiaSchi hat geschrieben: Mo Jun 21, 2021 4:12 pmGenügt das zur Reproduktion oder fehlen noch weitere Infos?

Die bei Deiner Arbeit verwendeten packages könnten helfen. Allgemein käme man so an die DAten:

Code: Alles auswählen

d <- read.csv("http://forum.r-statistik.de/download/file.php?id=1498")

bp <- boxplot(Variable ~ Bedingung, data = d)
text(bp$group+.1, bp$out + .1, labels = round(bp$out,2))
axis(4, bp$out)

LG,
Bernhard

Deutsches R-Forum

Ausreißer im Boxplot markieren

Ausreißer im Boxplot markieren

Re: Ausreißer im Boxplot markieren

Re: Ausreißer im Boxplot markieren

Re: Ausreißer im Boxplot markieren

Re: Ausreißer im Boxplot markieren