library(stUPscales)
data(Germany_precipitation_201112)
summary(Germany_precipitation_201112)
library(zoo)
par(mfrow = c(5, 1))
for(i in 1:ncol(Germany_precipitation_201112)){
plot(index(Germany_precipitation_201112), Germany_precipitation_201112[,i],
typ="l", col="blue", xlab="Time", ylab='Precip. [mm]',
main=colnames(Germany_precipitation_201112[,i]))
}
Run the code above in your browser using DataLab