switch themes; make guesses for bug guessing game; include better logo

diff --git a/debconf14/debbugs.Rnw b/debconf14/debbugs.Rnw
index 6570cfe615668d2df9c05d36440a9d21179b9e67..1f233b095a124dbdaaa09cc5322ec533b3dd1c3e 100644 (file)
--- a/debconf14/debbugs.Rnw
+++ b/debconf14/debbugs.Rnw
@@ -1,8 +1,8 @@
 \mode<presentation>
 {
-  \usetheme[hideallsubsections]{Hannover}
+  \usetheme{Montpellier}
   %\useoutertheme[hideallsubsections]{debiansidebar}
-  \setbeamercovered{transparent}  
+%  \setbeamercovered{transparent}  
 }
 
 
@@ -69,13 +69,14 @@
     \setlength{\parskip}{0pt}}%
   {\end{itemize}}
 
-\logo{\includegraphics[width=2cm]{figures/openlogo.pdf}}
+\logo{\begin{tikzpicture}% Pale figure
+    {\node[opacity=0.3] {\includegraphics[width=2cm,keepaspectratio]{figures/openlogo-crop.pdf}};}%
+    \end{tikzpicture}}
 \author{Don Armstrong}
 \title{Debbugs}
 \subtitle{Database Ho!}
 %\date{August 11th, 2008}
 \titlegraphic{\includegraphics[height=0.3\textheight,keepaspectratio]{figures/openlogo-crop.pdf}}
-\logo{\includegraphics[width=2cm,keepaspectratio]{figures/openlogo-crop.pdf}}
 \subject{BTS}
 
 % State of the BTS: new features, changes and tips
@@ -108,7 +109,7 @@ library(lattice)
 library(xtable)
 library(ggplot2)
 library(reshape2)
-opts_chunk$set(dev="cairo_pdf",out.width="\\textwidth",out.height="0.7\\textheight",out.extra="keepaspectratio")
+opts_chunk$set(dev="cairo_pdf",out.width="\\textwidth",out.height="0.8\\textheight",out.extra="keepaspectratio")
 opts_chunk$set(cache=TRUE, autodep=TRUE)
 options(device = function(file, width = 8, height = 7, ...) {
   cairo_pdf(tempfile(), width = width, height = height, ...)
@@ -136,9 +137,9 @@ options(device = function(file, width = 8, height = 7, ...) {
   \begin{columns}
     \column{0.5\textwidth}
     \begin{itemize}
+    \item Bug Statitics
     \item Introduction to Debbugs
     \item New features
-    \item Tips and Tricks
     \item Planned features
     \item Places you can help
     \end{itemize}
@@ -179,6 +180,8 @@ print(ggplot(bug.growth[bug.growth$date > as.POSIXct(ISOdatetime(2005,1,1,0,0,0)
 \end{frame}
 
 \begin{frame}
+  \begin{columns}
+    \column{0.5\textwidth}
   \begin{center}
 <<bugs.filed,fig=TRUE,echo=FALSE,warning=FALSE>>=
 print(ggplot(bug.growth[bug.growth$date > as.POSIXct(ISOdatetime(2013,1,1,0,0,0)),],aes(x=date,y=bugs))+
@@ -187,9 +190,18 @@ print(ggplot(bug.growth[bug.growth$date > as.POSIXct(ISOdatetime(2013,1,1,0,0,0)
       ggtitle("Christian Perrier's Plot"))
 bugs.filed.per.day <-
   lm(bugs~date,bug.growth)$coeff[2]*3600*24
+temp.lm <- lm(date~bugs,bug.growth[bug.growth$date > as.POSIXct(ISOdatetime(2013,1,1,0,0,0)),])
+bug.760000 <- 
+    as.POSIXct(ISOdatetime(1970,1,1,0,0,0)+as.numeric(predict(temp.lm,data.frame(bugs=760000,date=NA))))
+bug.800000 <- 
+    as.POSIXct(ISOdatetime(1970,1,1,0,0,0)+as.numeric(predict(temp.lm,data.frame(bugs=800000,date=NA))))
 @ 
 \end{center}
-Roughly \Sexpr{format(bugs.filed.per.day,digits=1)} bugs are filed per day.
+\column{0.5\textwidth}
+Roughly \Sexpr{format(bugs.filed.per.day,digits=1)} bugs are filed per
+day. The 760000th bug will be filed at \Sexpr{bug.760000}, and the
+800000th bug will be filed at \Sexpr{bug.800000}.
+\end{columns}
 \end{frame}
 
 
@@ -214,8 +226,8 @@ bug.closed.series$date <-
 # bug.closed.ts <- ts(bug.closed.series[,1],start=1,frequency=7)
 
 print(ggplot(bug.closed.series[bug.closed.series$date > as.POSIXct(ISOdatetime(2008,1,1,0,0,0)),],
-             aes(x=date,y=archived.bugs))+geom_line()+stat_smooth(method="lm")+
-      ylab("Archived bugs")+xlab("Time"))
+             aes(x=date,y=archived.bugs/7))+geom_line()+stat_smooth(method="lm")+
+      ylab("Bugs archived Per Day")+xlab("Time"))
 bugs.closed.per.day <- 
     sum(bug.closed.series$archived.bugs)/
     as.numeric(bug.closed.series$date[nrow(bug.closed.series)]-bug.closed.series$date[1])
@@ -227,7 +239,7 @@ Roughly \Sexpr{format(bugs.closed.per.day,digits=1)} bugs are closed per day.
 \subsection{RC Bugs}
 \begin{frame}
   \begin{center}
-<<rc.bugs,fig=TRUE,echo=FALSE,width=7,height=7>>=
+<<rc.bugs,fig=TRUE,echo=FALSE>>=
 rc.bugs <-
   read.table(file="data/rc_bugs.txt",
              header=TRUE,fill=TRUE)
@@ -243,6 +255,7 @@ print(ggplot(rc.bugs.long[rc.bugs.long$date >
              ,aes(x=date,y=value,color=variable))+
       geom_line()+
       ggtitle("RC Bugs in the past year")+
+      ylab("RC Bugs")+xlab("Time")+
       theme(legend.position=c(0.9,0.5))+
       guides(color=guide_legend(title="Measure")))