tabwellness <- table(geschlecht, interesse) par(mfrow = c(1, 2)) spineplot(tabwellness, main = "Spineplot") mosaicplot(tabwellness, main = "Mosaikplot") par(mfrow = c(1, 1))

tabwellness<-table(geschlecht,interesse) #Erstellen eines Mosaikplot mosaicplot(tabwellness, main = "Mosaikplot")

#Erstellen eienes spineplot tabwellness<-table(geschlecht,interesse) spineplot(tabwellness, main = "Spineplot")

par(mfrow = c(1, 2)) tabwellness <- table(geschlecht, interesse) barplot(t(prop.table(tabwellness, 1)), main = "Zeilenprozent", legend = TRUE, xlim = c(0, 4)) barplot(prop.table(tabwellness, 2), main = "Spaltenprozent", legend = TRUE, xlim = c(0, 5)) par(mfrow = c(1, 1))

tabwellness <- table(geschlecht, interesse) par(mfrow = c(1, 2)) #3.Spalten ist drei Gruppen barplot(tabwellness, main = "Gruppiertes Balkendiagramm", beside = TRUE, legend = TRUE) #gestapeltes Balkendiagramm (Achtung Werte wurden transponiert!! siehe t()) barplot(t(tabwellness), main = "Gestapeltes Balkendiagramm",beside = FALSE, legend = TRUE) #Grafikparameter werden wieder zurückgesetzt par(mfrow = c(1, 1))

tabwellness <- table(geschlecht, interesse) barplot(t(tabwellness), main = "Gestapeltes Balkendiagramm",beside = FALSE, legend = TRUE)

#Grafische Darstellung von mehreren kategorialen Variablen tabwellness <- table(geschlecht, interesse) par(mfrow = c(1, 2)) #3.Spalten ist drei Gruppen barplot(tabwellness, main = "Gruppiertes Balkendiagramm", beside = TRUE, legend = TRUE)

relHP <- c(0.37, 0.25, 0.13, 0.11, 0.11, 0.03) cP <- 1.96 * sqrt(relHP * (1 - relHP)/1000) untP <- relHP - cP obP <- relHP + cP ##Darstellung in Matrix matCIP <- cbind(relHP, untP, obP) rownames(matCIP) <- c("CDU/CSU", "SPD", "LINKE", "GRÜNE", "FDP", "sonstige") colnames(matCIP) <- c("Anteil", "untere Grenze", "obere Grenze") round(matCIP, digits = 3) #Grafische Darstellung der Matrix #package plotrix installieren library("plotrix") plotCI(1:6, relHP, cP, pch=NA, gap = 0.02, xlim = c(0.5,6.5), xaxt="n",ylab= "Anteile der Parteipräferenz", xlab="Test") text(1:6, relHP, rownames(matCIP))

Balkendiagramm Ja/Nein