Whitney Pageview Assignment

1. This is a graph of views for the Gun control article on Wikipedia over a several year period (July 1, 2016 - July 1, 2020).

gc <- article_pageviews(article = "Gun control", start = as.Date("2016-7-1"), end = as.Date("2020-7-1"))

glimpse(gc)

Rows: 1,462
Columns: 8
$ project     <chr> "wikipedia", "wikipedia", "wikipedia", "wikipedia", "wikipedia", "wikipedia", "wikipedia", "wikipedia", "wikiped~
$ language    <chr> "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en", "en"~
$ article     <chr> "Gun_control", "Gun_control", "Gun_control", "Gun_control", "Gun_control", "Gun_control", "Gun_control", "Gun_co~
$ access      <chr> "all-access", "all-access", "all-access", "all-access", "all-access", "all-access", "all-access", "all-access", ~
$ agent       <chr> "all-agents", "all-agents", "all-agents", "all-agents", "all-agents", "all-agents", "all-agents", "all-agents", ~
$ granularity <chr> "daily", "daily", "daily", "daily", "daily", "daily", "daily", "daily", "daily", "daily", "daily", "daily", "dai~
$ date        <dttm> 2016-07-01, 2016-07-02, 2016-07-03, 2016-07-04, 2016-07-05, 2016-07-06, 2016-07-07, 2016-07-08, 2016-07-09, 201~
$ views       <dbl> 532, 419, 443, 463, 817, 645, 534, 1064, 829, 625, 655, 611, 567, 511, 621, 453, 476, 688, 529, 565, 526, 600, 5~

gc %>% 
  ggplot(aes(x = date, y = views)) +
  geom_line(color = "dark blue") +
  labs(x = "Date", y  = "WIkipedia veiws", title = "Veiws of WIkipedia's Gun Control Article")

It appears the article peaked in views in early 2018.

2. This is a table showing the highest days for viewing the Gun control article on Wikipedia.

gc %>%
  arrange(-views)

The article was most heavily accessed on February 2nd 2018.

3. This table will take a look at at top articles the day after the Vegas and Florida shootings to see if these results were influenced by the shootings.

Vegas Shooting:

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

lasv %>% 
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "Special:Search")

NA

The indecent was the 3rd most viewed article the day after it occurred.

Florida shooting:

flo <- top_articles(start = as.Date("2018-2-15"))

flo %>% 
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "Special:Search")

NA

This table show that the results were impacted by the shooting as multiple results have to do with the subject.

4. Comparison of Wikipedia views of the Gun control article 1 week before and 2 weeks after the Vegas & Florida shootings with a ggplot. Las Vegas:

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

lvs1 <- lvs1 %>% 
  mutate(day = -7:14) %>% 
  mutate(event = "Lvs1")

Florida:

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

flos1 <- flos1 %>% 
  mutate(day = -7:14) %>% 
  mutate(event = "Flos1")

Florida and Las Vegas shootings compared and graphed:

shootings <- bind_rows(lvs1, flos1)

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

Here we can see that the Florida shooting (red) had more of an impact on the Wikipedia Gun Control article searches than the Las Vegas shooting (blue). Both peaked just about 2 says after they happened, but the Florida shooting had a much higher impact on the gun control articles veiws.