#Vorlesung Multivariate Analysen #=============================== #Kapitel 1.2: Grafische Datenaufbereitung (Teil 3) #================================================ #Darstellung von nominaler (kategorialen) Daten #============================================== # #Darstellung mehrerer Variablen nebeneinander #load("C:\\Users\\Lorenz Braun\\HfWU\\Multivariat\\SS11\\Weiterbildung.rda") plot(Weiterbildung[,c("Geschlecht","Bewertung")], col=rainbow(3), main="Bewertung nach Geschlecht") # #Abweichung von unabhängigen Fall assocplot(table(Weiterbildung[,c("Bewertung","Geschlecht")]), main="Abweichung vom unabhängigen Fall") # # #Mehrdimensionale Darstellungen - Mosaicplot mosaicplot(~Satz+Geschlecht+Film,data=Weiterbildung,col=rainbow(4)) # #Mehrdimensionale Darstellungen - Prüfung auf Unabhängigkeit require(vcd) assoc(table(Weiterbildung[,c("Satz","Geschlecht","Film")])) # # #Darstellung von gesmischten Daten #================================= # #Spineplot - gemischte Daten attach(Weiterbildung) spineplot(Bewertung~Alter,breaks=fivenum(Alter)) # #Nebeneinander-Plot attach(Weiterbildung) hh<-xtabs(~cut(Alter,fivenum(Alter),include.lowest=TRUE)+Bewertung) barplot(hh, beside = TRUE, col=rainbow(4),legend=rownames(hh), xlab="Bewertung",main="Bewertung und Altersklassen") # # ###