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)
Minimalbeispiel anbei . vielen Dank für eure Hilfe