Wo liegt der Fehler?

Wie rufe ich R-Funktionen auf, wie selektiere ich Daten, ich weiß nicht genau ....

Moderatoren: EDi, jogo

jogo
Beiträge: 2085
Registriert: Fr Okt 07, 2016 8:25 am

Re: Wo liegt der Fehler?

Beitrag von jogo »

bigben hat geschrieben: Mi Jun 21, 2017 2:11 pm Ehrlich? Glaskugel? Ich habe eher den Verdacht, dass Du Algorithmen verwendest :shock:
ja, echt.
Sonst (also mit Algorithmen) hätten wir ja auch nach 6 Monaten noch keine Antworten auf solche Fragen. :mrgreen:
RCarlos

Re: Wo liegt der Fehler?

Beitrag 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ß
jogo
Beiträge: 2085
Registriert: Fr Okt 07, 2016 8:25 am

Re: Wo liegt der Fehler?

Beitrag 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
RCarlos

Re: Wo liegt der Fehler?

Beitrag 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ß
jogo
Beiträge: 2085
Registriert: Fr Okt 07, 2016 8:25 am

Re: Wo liegt der Fehler?

Beitrag 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:

Code: Alles auswählen

TRUE==T
FALSE==F
T <- 0
F <- 1
TRUE==T
FALSE==F
RCarlos

Re: Wo liegt der Fehler?

Beitrag von RCarlos »

OK, danke für die Kosmetik und den Hinweis

RCarlos
Antworten