Deutsches R-Forum

Code: Alles auswählen

k <- read.table("demo.csv", sep = ";", header = TRUE, na = -77) 

k_mw<- subset(k, v_1 != "3") 'drittes Geschlecht ausklammern#

k_mw$v_315_fac <- factor(k_mw$v_315, levels <- c(1,2,3,4,5,6), labels <- c( "nie", "selten", "1 x Monat", "1 x Woche", "2 x Woche", 
                                                                            "täglich"))
k_mw$v_1_fac <- factor(k_mw$v_1, levels <- c(1,2), labels <- c( "Männer", "Frauen"))
tableplot <- table(k_mw$v_315_fac)
barplot(tableplot, xlab = "Häufigkeit", ylab = "frequency")
tableplot <- table(k_mw$v_1_fac, k_mw$v_315_fac)
barplot(tableplot, main="Verhalten",
        xlab=" ", las= 2,  col=c("darkblue","red"),
        legend = rownames(tableplot), beside=TRUE)

Code: Alles auswählen

k <- read.table("http://forum.r-statistik.de/download/file.php?id=780", sep = ";", header = TRUE, na = -77) 

k_mw<- subset(k, v_1 != "3") 

k_mw$v_315_fac <- factor(k_mw$v_315, levels <- c(1,2,3,4,5,6), labels <- c( "nie", "selten", "1 x Monat", "1 x Woche", "2 x Woche", 
                                                                            "täglich"))
k_mw$v_1_fac <- factor(k_mw$v_1, levels <- c(1,2), labels <- c( "Männer", "Frauen"))
tableplot <- table(k_mw$v_315_fac)
barplot(tableplot, xlab = "Häufigkeit", ylab = "frequency")
tableplot <- prop.table(table(k_mw$v_1_fac, k_mw$v_315_fac), margin = 1)
barplot(tableplot, main="Verhalten",
        xlab=" ", las= 2,  col=c("darkblue","red"),
        legend = rownames(tableplot), beside=TRUE)