#Vorlesung "Statistische Methoden" #================================= #Kapitel 2.2 #=========== # # #Auswertung der Merkmal "Größe" und "Branche" #============================================ # #Recodierung der Merkmale # Unternehmen$BrancheNeu <- recode(Unternehmen$Branche, 'c("KFZ","Metall")="I"; c("Elektro","Bau","Chemie")="II"; ', as.factor.result=TRUE) Unternehmen$Groesse <- recode(Unternehmen$Groesse, '"klein"="a_klein"; "mittel"="b_mittel"; "groß"="c_groß"; ', as.factor.result=TRUE) # # #Zweidimensionale absolute und relative Verteilung #================================================= # dat<-Unternehmen[,c("BrancheNeu","Groesse")] hTabelle<-table(dat) hTabelle fTabelle<-prop.table(hTabelle) fTabelle # #Randverteilungen table(dat$BrancheNeu) table(dat$Groesse) # # #Bedingte Verteilungen #===================== # #Bedingung: Größe prop.table(hTabelle,2) #Bedingung: Branche prop.table(hTabelle,1) # # #Grafische Darstellungen #======================= # #Balkendiagramm barplot(prop.table(hTabelle),beside=TRUE,legend=rownames(hTabelle)) # # #Mosaikplot mosaicplot(prop.table(hTabelle)) #