################################################
### Programmieren mit statistischer Software ###                     
###      Weitere Pakete für Graphiken        ###
################################################


### Beispieldatensatz ###
data("iris")



### Package lattice ### 
library("lattice")

# Zum Beispiel zur Erstellung von Scatterplots 
xyplot(Petal.Length ~ Sepal.Length | Species, data=iris)



### Package MASS ### 
library("MASS")

# Parallel-Koordinaten 
parcoord(iris[,1:4], col=iris$Species)


### Package gridExtra ### 
library("ggplot2")
library("gridExtra")

# mehrere ggplot2-Graphiken in einem Fenster 
plot1 <- ggplot(iris) + 
  aes(x=Petal.Length, y=Sepal.Length) + 
  geom_point() + 
  facet_grid(Species~.)
plot2 <- ggplot(iris) + 
  aes(x=Petal.Length, y=Sepal.Length) + 
  geom_point() + 
  facet_grid(.~Species)
grid.arrange(plot1,plot2,nrow=1)