This is an R Markdown Notebook.

gun_control <- article_pageviews(article = "Gun_control",
                                 start = as.Date("2015-01-01"),
                                 end = as.Date("2018-12-31"))

gun_control %>% 
  ggplot(aes(x = date, y = views)) +
  geom_line(color = "#CB81EE") +
  labs(x = "Date", y = "Page Views", title = "Wikipedia's Gun Control Article Views")

Above is a graph showing the page views on Wikipedia’s Gun Control Article. The two highest points likely represent the two mass shootings we’re looking at.

It’s a purple graph because gun control data makes me miserable and purple is my son’s favorite color. This whole assignment will be purple. You asked for this.

gun_control %>%
  select(article, date, views) %>%
  arrange(-views) %>% 
  datatable(class = 'cell-border stripe') %>% 
  formatStyle("article", backgroundColor = "#CB81EE") %>%
  formatStyle("date", backgroundColor = "#EE81E4") %>%
  formatStyle("views", backgroundColor = "#EF97C6")

The top three dates correlate to the Parkland shooting, and the fourth entry is after the Las Vegas shooting.

top_vegas <- top_articles(start = as.Date("2017-10-02")) %>% 
  select(article, views) %>% 
  filter(!article == "Main_Page", !article == "Special:Search",
         !article == "Special:Book")

top_vegas %>% 
  datatable(class = 'cell-border stripe') %>% 
  formatStyle("article", backgroundColor = "#CB81EE") %>%
  formatStyle("views", backgroundColor = "#EF97C6")

Here’s the article breakdown from the day after the LV shooting. Tom Petty died on October 2nd, so it’s not surprising his wikipage is listed first. We were also a month in to the Catalonia Constitutional Conflict (I looked this up out of curiousity), making the second entry not unusual. Servitto is a rapping judge (I’m not kidding, google it), followed by the article about the shooting. And porn.

top_florida <- top_articles(start = as.Date("2018-02-15")) %>% 
  select(article, views) %>% 
  filter(!article == "Main_Page", !article == "Special:Search")

top_florida %>% 
  datatable(class = 'cell-border stripe') %>% 
  formatStyle("article", backgroundColor = "#CB81EE") %>%
  formatStyle("views", backgroundColor = "#EF97C6")

After the Parkland shooting, the wikipage for Black Panther (set to premier in two days) was the most viewed. Savchenko broke the world record for the Olympic Free Skate on the 15th. The top ten articles viewed include Columbine, AR-15, and the summation of school shootings in the US. XHamster showed up again for some reason. Perverts.

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

vegas <- vegas %>% 
  mutate(day = -7:14) %>% 
  mutate(event = "Vegas")

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 = "Florida")

vegas_and_florida <- bind_rows(vegas, florida)

vegas_and_florida %>% 
  ggplot(aes(x = day, y = views, color = event)) +
  geom_line(aes(color=event)) +
  scale_color_manual(values=c('#CB81EE','#EF97C6'))+
  theme_classic() +
  labs(x = "Pre- and Post-Shooting (Days)",
       y = "Page Views",
       color = "Event",
       title = "Gun Control Page Views Before and After Mass Shootings") 

NA

There’s an obvious spike after the shootings, with more sustained page views after the Florida shooting. Both shootings incited public interest in gun control but obviously not enough since kids are still getting shot in school.

LS0tCnRpdGxlOiAiQVByYXR0IFBhZ2UgVmlld3MiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KClRoaXMgaXMgYW4gW1IgTWFya2Rvd25dKGh0dHA6Ly9ybWFya2Rvd24ucnN0dWRpby5jb20pIE5vdGVib29rLiAKCmBgYHtyfQpndW5fY29udHJvbCA8LSBhcnRpY2xlX3BhZ2V2aWV3cyhhcnRpY2xlID0gIkd1bl9jb250cm9sIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc3RhcnQgPSBhcy5EYXRlKCIyMDE1LTAxLTAxIiksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVuZCA9IGFzLkRhdGUoIjIwMTgtMTItMzEiKSkKCmd1bl9jb250cm9sICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBkYXRlLCB5ID0gdmlld3MpKSArCiAgZ2VvbV9saW5lKGNvbG9yID0gIiNDQjgxRUUiKSArCiAgbGFicyh4ID0gIkRhdGUiLCB5ID0gIlBhZ2UgVmlld3MiLCB0aXRsZSA9ICJXaWtpcGVkaWEncyBHdW4gQ29udHJvbCBBcnRpY2xlIFZpZXdzIikKYGBgCkFib3ZlIGlzIGEgZ3JhcGggc2hvd2luZyB0aGUgcGFnZSB2aWV3cyBvbiBXaWtpcGVkaWEncyBHdW4gQ29udHJvbCBBcnRpY2xlLiBUaGUgdHdvIGhpZ2hlc3QgcG9pbnRzIGxpa2VseSByZXByZXNlbnQgdGhlIHR3byBtYXNzIHNob290aW5ncyB3ZSdyZSBsb29raW5nIGF0LiAKCkl0J3MgYSBwdXJwbGUgZ3JhcGggYmVjYXVzZSBndW4gY29udHJvbCBkYXRhIG1ha2VzIG1lIG1pc2VyYWJsZSBhbmQgcHVycGxlIGlzIG15IHNvbidzIGZhdm9yaXRlIGNvbG9yLiBUaGlzIHdob2xlIGFzc2lnbm1lbnQgd2lsbCBiZSBwdXJwbGUuIFlvdSBhc2tlZCBmb3IgdGhpcy4gCgpgYGB7cn0KZ3VuX2NvbnRyb2wgJT4lCiAgc2VsZWN0KGFydGljbGUsIGRhdGUsIHZpZXdzKSAlPiUKICBhcnJhbmdlKC12aWV3cykgJT4lIAogIGRhdGF0YWJsZShjbGFzcyA9ICdjZWxsLWJvcmRlciBzdHJpcGUnKSAlPiUgCiAgZm9ybWF0U3R5bGUoImFydGljbGUiLCBiYWNrZ3JvdW5kQ29sb3IgPSAiI0NCODFFRSIpICU+JQogIGZvcm1hdFN0eWxlKCJkYXRlIiwgYmFja2dyb3VuZENvbG9yID0gIiNFRTgxRTQiKSAlPiUKICBmb3JtYXRTdHlsZSgidmlld3MiLCBiYWNrZ3JvdW5kQ29sb3IgPSAiI0VGOTdDNiIpCmBgYAoKVGhlIHRvcCB0aHJlZSBkYXRlcyBjb3JyZWxhdGUgdG8gdGhlIFBhcmtsYW5kIHNob290aW5nLCBhbmQgdGhlIGZvdXJ0aCBlbnRyeSBpcyBhZnRlciB0aGUgTGFzIFZlZ2FzIHNob290aW5nLiAKCmBgYHtyfQp0b3BfdmVnYXMgPC0gdG9wX2FydGljbGVzKHN0YXJ0ID0gYXMuRGF0ZSgiMjAxNy0xMC0wMiIpKSAlPiUgCiAgc2VsZWN0KGFydGljbGUsIHZpZXdzKSAlPiUgCiAgZmlsdGVyKCFhcnRpY2xlID09ICJNYWluX1BhZ2UiLCAhYXJ0aWNsZSA9PSAiU3BlY2lhbDpTZWFyY2giLAogICAgICAgICAhYXJ0aWNsZSA9PSAiU3BlY2lhbDpCb29rIikKCnRvcF92ZWdhcyAlPiUgCiAgZGF0YXRhYmxlKGNsYXNzID0gJ2NlbGwtYm9yZGVyIHN0cmlwZScpICU+JSAKICBmb3JtYXRTdHlsZSgiYXJ0aWNsZSIsIGJhY2tncm91bmRDb2xvciA9ICIjQ0I4MUVFIikgJT4lCiAgZm9ybWF0U3R5bGUoInZpZXdzIiwgYmFja2dyb3VuZENvbG9yID0gIiNFRjk3QzYiKQpgYGAKCkhlcmUncyB0aGUgYXJ0aWNsZSBicmVha2Rvd24gZnJvbSB0aGUgZGF5IGFmdGVyIHRoZSBMViBzaG9vdGluZy4gVG9tIFBldHR5IGRpZWQgb24gT2N0b2JlciAybmQsIHNvIGl0J3Mgbm90IHN1cnByaXNpbmcgaGlzIHdpa2lwYWdlIGlzIGxpc3RlZCBmaXJzdC4gV2Ugd2VyZSBhbHNvIGEgbW9udGggaW4gdG8gdGhlIENhdGFsb25pYSBDb25zdGl0dXRpb25hbCBDb25mbGljdCAoSSBsb29rZWQgdGhpcyB1cCBvdXQgb2YgY3VyaW91c2l0eSksIG1ha2luZyB0aGUgc2Vjb25kIGVudHJ5IG5vdCB1bnVzdWFsLiBTZXJ2aXR0byBpcyBhIHJhcHBpbmcganVkZ2UgKEknbSBub3Qga2lkZGluZywgZ29vZ2xlIGl0KSwgZm9sbG93ZWQgYnkgdGhlIGFydGljbGUgYWJvdXQgdGhlIHNob290aW5nLiBBbmQgcG9ybi4KCmBgYHtyfQp0b3BfZmxvcmlkYSA8LSB0b3BfYXJ0aWNsZXMoc3RhcnQgPSBhcy5EYXRlKCIyMDE4LTAyLTE1IikpICU+JSAKICBzZWxlY3QoYXJ0aWNsZSwgdmlld3MpICU+JSAKICBmaWx0ZXIoIWFydGljbGUgPT0gIk1haW5fUGFnZSIsICFhcnRpY2xlID09ICJTcGVjaWFsOlNlYXJjaCIpCgp0b3BfZmxvcmlkYSAlPiUgCiAgZGF0YXRhYmxlKGNsYXNzID0gJ2NlbGwtYm9yZGVyIHN0cmlwZScpICU+JSAKICBmb3JtYXRTdHlsZSgiYXJ0aWNsZSIsIGJhY2tncm91bmRDb2xvciA9ICIjQ0I4MUVFIikgJT4lCiAgZm9ybWF0U3R5bGUoInZpZXdzIiwgYmFja2dyb3VuZENvbG9yID0gIiNFRjk3QzYiKQpgYGAKCkFmdGVyIHRoZSBQYXJrbGFuZCBzaG9vdGluZywgdGhlIHdpa2lwYWdlIGZvciBCbGFjayBQYW50aGVyIChzZXQgdG8gcHJlbWllciBpbiB0d28gZGF5cykgd2FzIHRoZSBtb3N0IHZpZXdlZC4gU2F2Y2hlbmtvIGJyb2tlIHRoZSB3b3JsZCByZWNvcmQgZm9yIHRoZSBPbHltcGljIEZyZWUgU2thdGUgb24gdGhlIDE1dGguIFRoZSB0b3AgdGVuIGFydGljbGVzIHZpZXdlZCBpbmNsdWRlIENvbHVtYmluZSwgQVItMTUsIGFuZCB0aGUgc3VtbWF0aW9uIG9mIHNjaG9vbCBzaG9vdGluZ3MgaW4gdGhlIFVTLiBYSGFtc3RlciBzaG93ZWQgdXAgYWdhaW4gZm9yIHNvbWUgcmVhc29uLiBQZXJ2ZXJ0cy4gCgpgYGB7cn0KdmVnYXMgPC0gYXJ0aWNsZV9wYWdldmlld3MoYXJ0aWNsZSA9ICJHdW5fY29udHJvbCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIHN0YXJ0ID0gYXMuRGF0ZSgiMjAxNy0wOS0yNCIpLAogICAgICAgICAgICAgICAgICAgICAgICAgICBlbmQgPSBhcy5EYXRlKCIyMDE3LTEwLTE1IikpCgp2ZWdhcyA8LSB2ZWdhcyAlPiUgCiAgbXV0YXRlKGRheSA9IC03OjE0KSAlPiUgCiAgbXV0YXRlKGV2ZW50ID0gIlZlZ2FzIikKCmZsb3JpZGEgPC0gYXJ0aWNsZV9wYWdldmlld3MoYXJ0aWNsZSA9ICJHdW5fY29udHJvbCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc3RhcnQgPSBhcy5EYXRlKCIyMDE4LTAyLTA3IiksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZW5kID0gYXMuRGF0ZSgiMjAxOC0wMi0yOCIpKQoKZmxvcmlkYSA8LSBmbG9yaWRhICU+JSAKICBtdXRhdGUoZGF5ID0gLTc6MTQpICU+JSAKICBtdXRhdGUoZXZlbnQgPSAiRmxvcmlkYSIpCgp2ZWdhc19hbmRfZmxvcmlkYSA8LSBiaW5kX3Jvd3ModmVnYXMsIGZsb3JpZGEpCgp2ZWdhc19hbmRfZmxvcmlkYSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gZGF5LCB5ID0gdmlld3MsIGNvbG9yID0gZXZlbnQpKSArCiAgZ2VvbV9saW5lKGFlcyhjb2xvcj1ldmVudCkpICsKICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzPWMoJyNDQjgxRUUnLCcjRUY5N0M2JykpKwogIHRoZW1lX2NsYXNzaWMoKSArCiAgbGFicyh4ID0gIlByZS0gYW5kIFBvc3QtU2hvb3RpbmcgKERheXMpIiwKICAgICAgIHkgPSAiUGFnZSBWaWV3cyIsCiAgICAgICBjb2xvciA9ICJFdmVudCIsCiAgICAgICB0aXRsZSA9ICJHdW4gQ29udHJvbCBQYWdlIFZpZXdzIEJlZm9yZSBhbmQgQWZ0ZXIgTWFzcyBTaG9vdGluZ3MiKSAKICAKYGBgClRoZXJlJ3MgYW4gb2J2aW91cyBzcGlrZSBhZnRlciB0aGUgc2hvb3RpbmdzLCB3aXRoIG1vcmUgc3VzdGFpbmVkIHBhZ2Ugdmlld3MgYWZ0ZXIgdGhlIEZsb3JpZGEgc2hvb3RpbmcuIEJvdGggc2hvb3RpbmdzIGluY2l0ZWQgcHVibGljIGludGVyZXN0IGluIGd1biBjb250cm9sIGJ1dCBvYnZpb3VzbHkgbm90IGVub3VnaCBzaW5jZSBraWRzIGFyZSBzdGlsbCBnZXR0aW5nIHNob3QgaW4gc2Nob29sLiAK