diff options
author | Benjamin Chausse <benjamin@chausse.xyz> | 2020-11-25 01:00:25 -0500 |
---|---|---|
committer | Benjamin Chausse <benjamin@chausse.xyz> | 2020-11-25 01:00:25 -0500 |
commit | bdf49b99f0bdb8a0d02c85b82bda02d3bb5d72c2 (patch) | |
tree | a4ecccffb95257746ccfe45c040cbfb3a8543a95 /climbing.rnw |
Initial Commit
Diffstat (limited to 'climbing.rnw')
-rw-r--r-- | climbing.rnw | 83 |
1 files changed, 83 insertions, 0 deletions
diff --git a/climbing.rnw b/climbing.rnw new file mode 100644 index 0000000..9d7da1c --- /dev/null +++ b/climbing.rnw @@ -0,0 +1,83 @@ +\documentclass[a4paper, 11pt, landscape]{article} + +% \usepackage{crla_titlepage} +\usepackage[T1]{fontenc} +\usepackage[french]{babel} +\usepackage{pdflscape} +\usepackage[total={10in, 7in}]{geometry} + +\author{Benjamin Chausse} +\date{\today} +\title{Climbing Attendance Over Time at La Débarque} +% \personaltitle{} +% \classnb{} +% \subject{} +% \group{} +% \teacher{} + +\begin{document} +\maketitle +\newpage +<<LIBRARIES>>= +library(ggplot2) +library(ggforce) +library(scales) +@ + + +<<CSV>>= +attendance <- data.frame( + read.csv("./debarque.csv", + header=TRUE, + sep=",")) +attendance$DAY <- as.POSIXct(attendance$DAY,format="%Y-%m-%d") +attendance$TIME <- as.POSIXct(attendance$TIME,format="%R") +attendance$WEEKDAY <- weekdays(attendance$DAY) +attendance$WEEKDAY <- factor(attendance$WEEKDAY, + levels=c( + "Sunday", + "Monday", + "Tuesday", + "Wednesday", + "Thursday", + "Friday", + "Saturday")) +@ + +<<PLOTTING>>= +# Day of the week averages +week <- ggplot(attendance, + aes(x=TIME, + y=CLIMBERS, + group=WEEKDAY, + col=as.factor(DAY))) + + geom_path() + + geom_smooth(method="gam") + + scale_y_continuous( + breaks=seq(0,25,1), + limits=c(0,25), + labels = scales::number_format(accuracy = 1)) + + scale_x_datetime( + labels=date_format("%R", tz="America/Toronto"), + date_breaks="3 hour") + + labs(x="Heure de la journée", + y="Nombre de grimpeurs") + + theme(legend.position="none") + + facet_wrap(~WEEKDAY) + +# Daily attendances through time +timeline <- ggplot(attendance, aes(x=DAY, y=CLIMBERS)) + + geom_line(stat="summary", fun=mean) +@ +\centering +<<PRINT, echo=FALSE, fig.fullwidth=TRUE, fig.width=10>>= +print(week) +@ + +<<TIMELINE, fig.width=10, fig.fullwidth=TRUE, echo=FALSE>>= +print(timeline) +@ + + + +\end{document} |