# Stochastik IV, Übungsblatt 4

# Aufgabe 5

library(lattice)

# Einlesen der Daten und Einbinden in Suchpfad

data.stud <- 
read.table("D:/Univ Augsburg/Lehre/SS07/VO_MultiVar/Datensaetze/Students.txt",
head = TRUE, sep = "\t", quote = "")

attach(data.stud)

# Teilaufgabe (a), Trellis Plot (weil 'Fach' numerisch, benutze as.factor()) 

fach <- as.factor(Fach)
levels(fach) <- c("Technologie", "Architektur", "Medizintechnik")
bwplot(~ Eignung + Mathe + Sprachen + Allgemeinbildung | fach, 
       data = data.stud, main = "Trellis Box-Plot", outer = TRUE)

# Teilaufgabe (b), Scatterplot 

windows()

pairs(data.stud[,2:5], col = Fach + 1, pch = Fach + 19, cex = 2,
      main = "Scatterplot Matrix der Testergebnisse 
              (Farbe und Form nach Fächern)")
title(sub = "rot: Technologie; grün: Architektur; blau: Medizintechnik")