# Daten einlesen library(foreign) Datenmatrix <- read.spss("./daten/cft_disk.sav", use.value.labels=TRUE, max.value.labels=Inf, to.data.frame=TRUE) attach(Datenmatrix) # Kreuztabelle zwischen Englischnote und Geschlecht t=table(note_e, geschl) # Relative Häufigkeiten t[,1] = t[,1]/sum(t[,1]) t[,2] = t[,2]/sum(t[,2]) # Grafik erstellen # Achsenbeschriftung ohne führende Nullen! namen = c(".0", ".2", ".4", ".6", ".8", "1.0") position = c(.0, .2, .4, .6, .8, 1.0) # Ränder einstellen par(mar=c(5,4.2,2,8)) par(mgp=c(2,0.5,0)) barplot(t, legend.text = c("1", "2", "3", "4", "5") , args.legend = list(x = "topright", title=" Englischnote", inset=c(-.42,0), bty="n", cex=1.25), ylim=c(0,1), xlab="Geschlecht", ylab="relative Häufigkeiten (kumuliert)", cex.lab=1.4, cex.axis=1.25, yaxt="n") axis(2, labels = FALSE) # x-Achse anlegen text(par("usr")[3] - 0.07, position, # x, y Koordinaten für die neuen Texte srt = 0, adj = 0.5, # srt-Drehung, adj-Text rechtsbündig (0...1) labels = namen, xpd = TRUE, # xpd - Text darf auch außerhalb sein (=expand) cex=1.25 ) abline(0,0) #Zur Ausgabe in eine PDF-Datei stellen Sie bitte sicher, dass Sie Schreizugriff auf den Ausgabepfad haben! #dev.print(pdf, file="C:/CFT_Englisch_Stapelbalken.pdf", width=5, height=5, pointsize=10) ### Ausgabe der Grafik direkt nach PDF par(mar=c(5,4.1,2,8)) par(mgp=c(2.5,0.5,0)) t=table(note_e, geschl) barplot(t(t), legend.text = c("männlich", "weiblich") , args.legend = list(x = "topright", title="Geschlecht", inset=c(-0.35,0), bty="n", cex=1.25), beside=T, xlab="Englischnote", ylab="Anzahl", cex.lab=1.4, cex.axis=1.4, cex=1.25, las=1) abline(0,0) #Zur Ausgabe in eine PDF-Datei stellen Sie bitte sicher, dass Sie Schreizugriff auf den Ausgabepfad haben! #dev.print(pdf, file="C:/Englisch_Balken.pdf", width=5, height=5, pointsize=10) ### Ausgabe der Grafik direkt nach PDF