Benutzer:LoKiLeCh/Entwürfe/Blick in Aufrufstatistik

Page View Statistik

Aufrufe im Wochenverlauf

 ```{r test, fig.width=8, fig.height=6}

 library("ggplot2")
 library("lattice")
 library("rjson")

 par(family="sans",col=gray(0.3),col.axis=gray(0.3),col.lab=gray(0.3),col.axis=gray(0.5),col.main=gray(0.3),cex=2)
   theme_set(theme_gray(base_size = 18))

 getJsonData <- function (name)
 {
   json_file <- paste("http://stats.grok.se/json/de/latest90/",name,sep="")
   #print(json_file)
   json_data <- fromJSON(paste(readLines(json_file), collapse=""))
   json_data
 }

 plotECDF <- function(name)
 {
   jd <- getJsonData(name)
   summary(unlist(jd$daily_views))
   qplot(unlist(jd$daily_views),xlab="Page Views",ylab="Cumulative distribution",stat="ecdf",geom="step",main=name) + geom_line()
 }

 plotECDF("Angela Merkel")

 jd_Streckgrenze <- getJsonData("Streckgrenze")

 jd_Duckluftlot<-getJsonData("Druckluftlot")

 jd_Die_Simpsons<-getJsonData("Die_Simpsons")

 Aufrufe <- cbind(weekdays(as.Date(rownames(as.matrix(unlist(jd_Streckgrenze$daily_views))))),as.matrix(unlist(jd_Streckgrenze$daily_views)))

 colnames(Aufrufe)<-c("Wochentag","Aufrufe")
 WochentagsAufrufe <- matrix(0,7,2)

 WochentagsAufrufe[,1]<-c("So","Mo","Di","Mi","Do","Fr","Sa")
 WochentagsAufrufe[,2]<-0
 rownames(WochentagsAufrufe)<-c("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag")

 for (j in 1:7)
 {
 for (i in 1:(length(Aufrufe)/2))
   if (Aufrufe[,"Wochentag"][i] == rownames(WochentagsAufrufe)[j])
     WochentagsAufrufe[,2][j] <- (as.numeric(WochentagsAufrufe[,2][j]) +as.numeric(Aufrufe[,"Aufrufe"][i]) )
 }

 colnames(WochentagsAufrufe) <- c("Wochentag","Aufrufe")


 barplot(as.numeric(WochentagsAufrufe[,"Aufrufe"]),names.arg=WochentagsAufrufe[,1],ylab="Aufrufe",xlab="Wochentag",main="Streckgrenze")

 qplot(WochentagsAufrufe[,1],as.numeric(WochentagsAufrufe[,"Aufrufe"]),ylab="Aufrufe",xlab="Wochentag",main="Streckgrenze") + geom_bar()

 #histogram(unlist(json_data$daily_views),xlab="Aufrufe",ylab="Häufigkeit",nint=20)

 qplot(unlist(jd_Streckgrenze$daily_views),xlab="Aufrufe",ylab="Häufigkeit")

 #qplot(rownames(as.matrix(unlist(json_data$daily_views))),as.matrix(unlist(json_data$daily_views)),xtfrm.Date,geom="bar",ylab="Aufrufe",xlab="Zeit",ylim=c(0,1200),xtfrm.Date(rownames(as.matrix(unlist(json_data$daily_views)))))
 qplot(rownames(as.matrix(unlist(jd_Streckgrenze$daily_views))),as.matrix(unlist(jd_Streckgrenze$daily_views)),xtfrm.Date,geom="bar",ylab="Aufrufe",xlab="Zeit",ylim=c(0,1200))

 plot(unlist(jd_Streckgrenze$daily_views),type="s",xlab="Tag",ylab="Aufrufe")
 grid()


 dp <- function(x) { 20*dpois(x, 100) }

 qplot(unlist(jd_Duckluftlot$daily_views),xlab="Aufrufe",ylab="Häufigkeit",geom="histogram",main="Druckluftlot",binwidth=0.5) + stat_function(fun = dp, colour = "red3",n=5,size=2) + annotate("text", x = 3.3, y = 22, label = "Poissonverteilung",size=10,col="red3")

 qplot(unlist(jd_Die_Simpsons$daily_views),xlab="Aufrufe",ylab="Häufigkeit",stat="ecdf",geom="step",main="Druckluftlot",binwidth=100)
 #+ geom_errorbar(fun = dp, colour = "red")


 #hist(unlist(json_data$daily_views),col="bisque",nclass=20)
      
 ```