Web traffic to date

I'm going to include my blog as a form of community engagement in my fellowship application. The only objective way I can measure its impact is by the number of views. Luckily the WordPress API makes it easy to download all my web traffic and I have made this data available online. I wrote this post in case one of the assessors decided to check whether I was just making up numbers.

library(ggplot2)
library(dplyr)

d <- read.csv('http://davetang.org/site_stat/blog_20170201.csv')
d$date    <- as.Date(d$date)
d$day     <- factor(weekdays(d$date), levels = c('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday'))
d$weekend <- grepl(pattern = "^S", x = d$day)
d$month   <- factor(months(d$date), levels = month.name)
d$quarter <- factor(quarters(d$date))
d$year    <- format(d$date, "%Y")

group_by(d, year) %>% summarise(views = sum(views))
# A tibble: 5 × 2
   year  views
  <chr>  <int>
1  2013  87415
2  2014 253844
3  2015 283973
4  2016 223065
5  2017  13510

d %>% summarise(total = sum(views))
   total
1 861807

I have a total of 861,807 views from 2013-01-22 until 2017-01-31. As a graph:

ggplot(d, aes(year, views)) + geom_boxplot() +
  annotate('text', x = 1, y = 1400, label = "87,415", size = 6) +
  annotate('text', x = 2, y = 1400, label = "253,844", size = 6) +
  annotate('text', x = 3, y = 1400, label = "283,973", size = 6) +
  annotate('text', x = 4, y = 1400, label = "223,065", size = 6) +
  annotate('text', x = 5, y = 1400, label = "13,510", size = 6) +
  theme_set(theme_gray(base_size = 20)) +
  theme(plot.title = element_text(hjust = 0.5)) +
  ggtitle("Web traffic since 2013") +
  xlab('') + ylab('Views')

I enjoy blogging and I hope that assessors will value blogging as much as I do.

Print Friendly, PDF & Email



Creative Commons License
This work is licensed under a Creative Commons
Attribution 4.0 International License
.
6 comments Add yours
  1. The mean view count would probably correlate with the number of posts per year. Each and every your post will continue to help others learning practical bioinformatics. Thanks, Davo, and keep blogging.

  2. Your blog posts have been so helpful right from the start - especially for people like me who are wet lab scientists going into bioinformatics! Thank you for always so readily helping and providing super useful advice whenever I had questions. Keep up the awesome work!! 🙂

Leave a Reply

Your email address will not be published. Required fields are marked *