R Notebook

library(tidyverse)
library(pageviews)
library(knitr)
library(DT)

Gun_control <- article_pageviews(article = "Gun_control", start = as.Date("2016-10-02"), end = as.Date("2019-10-02"))
glimpse(old_pageviews)

function (project = "en.wikipedia", platform = "all", granularity = "daily", 
    start = "2013100100", end = "2015100100", reformat = TRUE, ...)  

Gun_control <- article_pageviews(article = "Gun_control", start = as.Date("2016-10-2"), end = as.Date("2019-10-2"))
glimpse(Gun_control)

Rows: 1,096
Columns: 8
$ project     <chr> "wikipedia", "wikipedia", "wikipedia", "wikipedia", "wikipedia…
$ language    <chr> "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "e…
$ article     <chr> "Gun_control", "Gun_control", "Gun_control", "Gun_control", "G…
$ access      <chr> "all-access", "all-access", "all-access", "all-access", "all-a…
$ agent       <chr> "all-agents", "all-agents", "all-agents", "all-agents", "all-a…
$ granularity <chr> "daily", "daily", "daily", "daily", "daily", "daily", "daily",…
$ date        <dttm> 2016-10-02, 2016-10-03, 2016-10-04, 2016-10-05, 2016-10-06, 2…
$ views       <dbl> 491, 849, 774, 740, 807, 600, 386, 748, 675, 739, 749, 769, 60…

Gun_control %>% 
  ggplot(aes(x = date, y = views)) +
  geom_line()

The graph shows wiki searches for gun control over a span of a few years.

Gun_control %>%
  arrange(-views) %>%
  datatable(class = 'cell-border stripe') %>% 
  formatStyle("article", backgroundColor = "blue") %>% 
  formatStyle("views", backgroundColor = "lightgreen") %>%
  formatStyle("access", backgroundColor = "yellow") %>%
  formatStyle("agent", backgroundColor = "orange") %>%
  formatStyle("granularity", backgroundColor = "brown") %>%
  formatStyle("language", backgroundColor = "red") %>%
  formatStyle("project", backgroundColor = "silver")

This is a table the amount of views for gun control from highest to lowest. This shows the days in which gun control viewed the most.

top_vegas <- top_articles(start = as.Date("2017-10-02")) 

top_vegas %>% 
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "Special:Search") %>%
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "Special:Search") %>% 
  datatable(class = 'cell-border stripe') %>% 
  formatStyle("article", backgroundColor = "purple") %>%
  formatStyle("views", backgroundColor = "blue")

This table shows the articles viewed most the day after the 2017 vegas mass shooting. The article on the event was rated the 4th most viewed at 439,287 views.

top_florida <- top_articles(start = as.Date("2018-02-15")) 

top_florida %>% 
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "Special:Search") %>%
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "Special:Search") %>% 
  datatable(class = 'cell-border stripe') %>% 
  formatStyle("article", backgroundColor = "silver") %>%
  formatStyle("views", backgroundColor = "gold")

This table shows the top viewed articles after the early 2018 Florida school shooting. The article is rated the 12th most viewed at 184,514 views.

florida <- article_pageviews(article = "Gun_control", 
                              start = as.Date("2018-2-7"), 
                              end = as.Date("2018-2-28"))

florida <- florida %>% 
  mutate(day = -7:14) %>% 
  mutate(event = "florida")
florida %>% 
  ggplot(aes(x = day, y = views)) +
  geom_line()

This graph represents the views for gun control one week before and two weeks after the event. There was a spike in views for the next two days then it declined.

vegas <- article_pageviews(article = "Gun_control", 
                              start = as.Date("2017-9-24"), 
                              end = as.Date("2017-10-15"))

vegas <- vegas %>% 
  mutate(day = -7:14) %>% 
  mutate(event = "vegas")
vegas %>% 
  ggplot(aes(x = day, y = views)) +
  geom_line()

This graph shows that views for gun control spiked for two days after the 2017 vegas mass shooting.

shootings <- bind_rows(vegas, florida)

shootings %>% 
  ggplot(aes(x = day, y = views, color = event)) +
  geom_line() +
  theme_minimal() +
  labs(x = "Days before/after Shooting", 
       y = "Wikipedia Views", 
       color = "Event", 
       title = "Views of the Wikipedia Gun Control Article one week before and two weeks after Two Mass Shootings")

This graph represents a comparison between the views for gun control after after the early 2018 Florida school shooting and the 2017 Vegas mass shooting.