#Datensatz laden
data(rainforest)

#Datensatzstruktur
names(rainforest)
rainforest
summary(rainforest)
str(rainforest)
?rainforest
dim(rainforest)

#Korrelationen
cor(rainforest[,1:6],use="pair")

#Plotten
attach(rainforest)

#Fehlende Werte
library(vmv)
tablemissing(rainforest, sortby="both")

#Univariate Plots
dev.new()
hist(dbh)
dev.new()
hist(root)
dev.new()
hist(rootsk)
dev.new()
par(mfrow=c(3,2))
apply(rainforest[,1:6],2,hist)
dev.new()
barplot(table(species))
dev.new()
hist(wood)
dev.new()
stripchart(wood,pch=19)

#Multivariate Plots
dev.new()
splom(rainforest[,1:6])
library(YaleToolkit)
dev.new()
gpairs(rainforest)

dev.new()
plot(dbh,wood,col=species,pch=19)
dev.new();plot(dbh,wood,col=species,pch=19,log="xy")

ggplot(rainforest,aes(x=dbh,y=wood))+geom_point()+facet_grid(.~species)
ggplot(rainforest,aes(x=log(dbh),y=log(wood)))+geom_point()+facet_grid(.~species)

dev.new();plot(species,wood)