Backup – Übung Häufigkeiten | Statistik FernUni Hagen

Überblick Lektion 1

Demo Objekt mtcars:

Das Objekt mtcars ist ein Data Frame für 32 Automodelle aus den 1970er Jahren mit technischen Angaben, wie etwa die Anzahl Zylinder:

Bedienungshinweis

Bei Nutzung per Computer (nicht per Handy) können die beiden Fenster per Drag-and-Drop auch untereinander angeordnet werden. Das macht es übersichtlicher.

# no pec



        mtcars

Demo Häufigkeitstabelle:

Es folgt eine Häufigkeitstabelle für die Zylinderanzahl (Variable cyl) der ersten 10 Fälle – erst mit absoluten Häufigkeiten, dann mit relativen Häufigkeiten:

# no pec



        # Kopiere Zeile 1 bis 10 in ein neues Objekt

        myCars <- mtcars[1:10,]

        # Behalte nur die ersten beiden Spalten
        # (das genügt und macht es übersichtlicher)
        myCars <- myCars[,1:2]
        myCars

        cat("\nTabelle mit absoluten Haeufigkeiten für cyl:")
        table(myCars$cyl)

        cat("\nTabelle mit relativen Haeufigkeiten für cyl:")
        prop.table(table(myCars$cyl))

Demo kumulierte Häufigkeiten und Säulendiagramm:

Kumulierte Häufigkeiten mit cumsum() und Säulendiagramm einfach mit barplot()

# no pec



        myCars <- mtcars[1:10,]

        cat("\nAbsolute Häufigkeiten:")
        table(myCars$cyl)
        cat("Kumulierte absolute Häufigkeiten:\n")
        cumsum(table(myCars$cyl))

        cat("\nRelative Häufigkeiten:")
        prop.table(table(myCars$cyl))
        cat("Kumulierte relative Häufigkeiten:\n")
        cumsum(prop.table(table(myCars$cyl)))

        cat("\nGrafische Darstellung der absoluten Häufigkeiten in einem Säulendiagramm:")
        cat("\n(schau es dir kurz einmal an und überlege, was genau mit\nden Zahlen auf der X- und der Y-Achse jeweils gemeint ist)")
        barplot(table(myCars$cyl))