Minnie Bell - PAGEVIEWS

library(tidyverse)

Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
-- Attaching packages -------------------------------------------------------- tidyverse 1.3.0 --
v ggplot2 3.3.3     v purrr   0.3.4
v tibble  3.0.4     v dplyr   1.0.2
v tidyr   1.1.2     v stringr 1.4.0
v readr   1.4.0     v forcats 0.5.0
-- Conflicts ----------------------------------------------------------- tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()

library(pageviews)        # This package gets data on Wikipedia viewing
library(DT)               # DT stands for datatable, and creates interactive tables

Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio

Gun Control Article Views from July 1, 2015 to July 1, 2019

guns <- article_pageviews(article = "Gun Control", start = as.Date("2015-7-1"), end = as.Date("2019-7-1"))

glimpse(guns)

Rows: 1,439
Columns: 8
$ project     <chr> "wikipedia", "wikipedia", "wikipedia", "wikipedia", "wikipedia", "wikipe...
$ language    <chr> "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", ...
$ article     <chr> "Gun_Control", "Gun_Control", "Gun_Control", "Gun_Control", "Gun_Control...
$ access      <chr> "all-access", "all-access", "all-access", "all-access", "all-access", "a...
$ agent       <chr> "all-agents", "all-agents", "all-agents", "all-agents", "all-agents", "a...
$ granularity <chr> "daily", "daily", "daily", "daily", "daily", "daily", "daily", "daily", ...
$ date        <dttm> 2015-07-01, 2015-07-02, 2015-07-03, 2015-07-04, 2015-07-05, 2015-07-06,...
$ views       <dbl> 4, 5, 3, 2, 2, 2, 5, 3, 2, 5, 2, 3, 1, 3, 3, 1, 4, 4, 4, 4, 3, 1, 3, 1, ...

Below is a line graph and table that reflect how often gun control articles were viewed over a course of time.You can see that views of gun control increased in early 2017 and spiked in July 2018. Page views then continuued at the same rate that occurred in early 2017.

guns %>% 
  ggplot(aes(x = date, y = views)) +
  geom_line(color = "red") +
  labs(x = "Date", y = "Wikipedia Views", title = "Views of Wikipedia's Gun Control Articles")

guns <- article_pageviews(article = "Gun Control", start = as.Date("2015-7-1"), end = as.Date("2019-7-1"))

guns %>%
  arrange(-views)

Information from the graph and table reveal that gun control articles were viewed the most on July 19, 2018. Most notably on that day in history, 17 passengers perished when a duck boat capsized and sank in Branson, Missouri.

Top articles viewed the day after the Las Vegas mass shooting of October 1, 2017 included master musician, Tom Petty, who passed on October 2, 2017. The fourth most viewed page was the 2017 Las Vegas Strip shooting which came in after views of Catalonia, Spain, which declared itself independent from Spain the day before and views of a judge whose claim to fame was that they presided over a trial involving rap musician, Eminem.

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

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

NA

The top article viewed after the Stoneman Douglas High School shooting in Florida which killed 17 students and injured 17 others, was a review of the Black Panther movie, starring Chadwick Boseman, who passed from colon cancer August 28, 2020. However, the second most searched item was the Columbine High School mass shooting of April 20, 1999. In that shooting, two 12th grade students killed twelve fellow students and one teacher. The sixth highest viewed page on that day was a general search of school shootings in the United States.

The similarities between the two separate page views is that a blockbuster movie and the death of a talented musician take precedence over the deaths of children.

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

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

NA

Lastly, we will look at Las Vegas and Florida gun control views during the one week period prior to the shootings until two weeks after the shootings. You can see that page views regarding gun control were viewed more often after a mass shooting than any other time. However, gun control does not seem to be as important as those or what entertains us.

las_vegas <- article_pageviews(article = "Gun_control",
                           start = as.Date("2017-10-10"),
                           end = as.Date("2017-10-31"))

las_vegas <- las_vegas %>% 
  mutate(day = -7:14) %>% 
  mutate(event = "California")

las_vegas %>% 
  ggplot(aes(x = day, y = views)) +
  geom_line()

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

florida <- florida %>% 
  mutate(day = -7:14) %>% 
  mutate(event = "California")

florida %>% 
  ggplot(aes(x = day, y = views)) +
  geom_line()

guns <- bind_rows(las_vegas, florida)

guns %>% 
  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 before and after Two Mass Shootings")