Seite 3 von 3
Re: Wo liegt der Fehler?
Verfasst: Mi Jun 21, 2017 2:29 pm
von jogo
bigben hat geschrieben: ↑Mi Jun 21, 2017 2:11 pm
Ehrlich? Glaskugel? Ich habe eher den Verdacht, dass Du
Algorithmen verwendest
ja, echt.
Sonst (also mit Algorithmen) hätten wir ja auch nach 6 Monaten noch keine Antworten auf solche Fragen.
Re: Wo liegt der Fehler?
Verfasst: Mi Jun 21, 2017 6:37 pm
von RCarlos
Eine letzte (Folge)Frage noch zu dem Thema, hoffe ich
Code: Alles auswählen
aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
# > aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
# Geschlecht preVASR poVASR po3VASR po6VASR po12VASR
# 1 F 5.473684 2.767442 2.804878 3.264706 3.150000
# 2 M 4.671429 2.268293 2.911765 2.833333 2.266667
ich würde gerne ein Balkendiagramm aus Zeile 1 F anfertigen, aber so einfach mit barplot gestaltet sich das nicht. Hat einer eine Idee?
Gruß
Re: Wo liegt der Fehler?
Verfasst: Mi Jun 21, 2017 8:17 pm
von jogo
meinst Du sowas?
Code: Alles auswählen
df <- subset(d, Geschlecht=="F", select = c(preVASR, poVASR, po3VASR, po6VASR, po12VASR))
boxplot(values ~ ind, data=stack(df))
Gruß, Jörg
Re: Wo liegt der Fehler?
Verfasst: Do Jun 22, 2017 11:50 am
von RCarlos
nicht so ganz, ich möchte ein Balkendiagramm anfertigen mit barplot.
ich habe einen Weg gefunden
Code: Alles auswählen
> aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
Geschlecht preVASR poVASR po3VASR po6VASR po12VASR
1 F 5.473684 2.767442 2.804878 3.264706 3.150000
2 M 4.671429 2.268293 2.911765 2.833333 2.266667
> df<-aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
> dff<-t(df[-1])
> dff
[,1] [,2]
preVASR 5.473684 4.671429
poVASR 2.767442 2.268293
po3VASR 2.804878 2.911765
po6VASR 3.264706 2.833333
po12VASR 3.150000 2.266667
> colnames(dff)<-c("F","M")
> barplot(dff,beside=T)
Gruß
Re: Wo liegt der Fehler?
Verfasst: Do Jun 22, 2017 1:17 pm
von jogo
Hallo RCarlos,
hier noch etwas kosmetisch überarbeitet:
Code: Alles auswählen
df <- aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
barplot(t(df[-1]), beside=TRUE, names.arg=df$Geschlecht)
Und noch ein Hinweis: TRUE und FALSE mit T und F abzukürzen, kann gefährlich sein:
Re: Wo liegt der Fehler?
Verfasst: Do Jun 22, 2017 1:43 pm
von RCarlos
OK, danke für die Kosmetik und den Hinweis
RCarlos