Pageviews Assignment

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

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

shootings <- article_pageviews(article = "gun control", start = as.Date("2010-7-1"), end = as.Date("2018-12-1"))

glimpse(shootings)

Observations: 29
Variables: 8
$ project     <chr> "wikipedia", "wikipedia", "wikipedia", "w…
$ language    <chr> "en", "en", "en", "en", "en", "en", "en",…
$ article     <chr> "gun_control", "gun_control", "gun_contro…
$ access      <chr> "all-access", "all-access", "all-access",…
$ agent       <chr> "all-agents", "all-agents", "all-agents",…
$ granularity <chr> "daily", "daily", "daily", "daily", "dail…
$ date        <dttm> 2015-07-10, 2015-08-11, 2015-08-13, 2015…
$ views       <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2,…

top %>% 
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "gun control") %>% 
  top_n(10, views)

top %>% 
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "gun controle") %>% 
  datatable(class = 'cell-border stripe') %>% 
  formatStyle("article", backgroundColor = "lightpink") %>% 
  formatStyle("views", backgroundColor = "lightblue")

top %>% 
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "flordia") %>% 
  top_n(10, views) %>% 
  ggplot(aes(x = fct_rev(as_factor(article)), y = views)) +
  geom_col(fill = "pink") +
  coord_flip() +
  scale_y_continuous(labels = scales::comma) +
  labs(y = "Number of Views", x = "Article", title = "Top Wikipedia articles, Oct. 2, 2017")

top %>% 
  select(article, views) %>%
  filter(!article == "Main_Page", !article == "Nevada") %>% 
  top_n(10, views) %>% 
  ggplot(aes(x = fct_rev(as_factor(article)), y = views)) +
  geom_col(fill = "pink") +
  coord_flip() +
  scale_y_continuous(labels = scales::comma) +
  labs(y = "Number of Views", x = "Article", title = "Top Wikipedia articles, feb. 15, 2018")

shootings %>% 
  ggplot(aes(x = date, y = views, color = article)) +
  geom_line()

Nevada <- article_pageviews(article = "Gun_control",
                           start = as.Date("2017-10-1"),
                           end = as.Date("2018-2-14"))

Nevada <- texas %>% 
  mutate(day = -7:14) %>% 
  mutate(event = "Navada")

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

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

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

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

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

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

Nevada <- california %>% 
  mutate(day = -7:14) %>% 
  mutate(event = "flordia")

Nevada %>% 
  ggplot(aes(x = day, y = views)) +
  geom_line(color="red")

LS0tCnRpdGxlOiAiUGFnZXZpZXdzIEFzc2lnbm1lbnQiCm91dHB1dDogaHRtbF9ub3RlYm9vawoKLS0tCmBgYHtyfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShwYWdldmlld3MpICAgICAgICAjIFRoaXMgcGFja2FnZSBnZXRzIGRhdGEgb24gV2lraXBlZGlhIHZpZXdpbmcKbGlicmFyeShEVCkgICAgICAgICAgICAgICAjIERUIHN0YW5kcyBmb3IgZGF0YXRhYmxlLCBhbmQgY3JlYXRlcyBpbnRlcmFjdGl2ZSB0YWJsZXMKYGBgCgoKYGBge3J9CnNob290aW5ncyAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gZGF0ZSwgeSA9IHZpZXdzKSkgKwogIGdlb21fbGluZSgpCmBgYAoKYGBge3J9CnNob290aW5ncyA8LSBhcnRpY2xlX3BhZ2V2aWV3cyhhcnRpY2xlID0gImd1biBjb250cm9sIiwgc3RhcnQgPSBhcy5EYXRlKCIyMDEwLTctMSIpLCBlbmQgPSBhcy5EYXRlKCIyMDE4LTEyLTEiKSkKCmdsaW1wc2Uoc2hvb3RpbmdzKQpgYGAKCgpgYGB7cn0KdG9wICU+JSAKICBzZWxlY3QoYXJ0aWNsZSwgdmlld3MpICU+JQogIGZpbHRlcighYXJ0aWNsZSA9PSAiTWFpbl9QYWdlIiwgIWFydGljbGUgPT0gImd1biBjb250cm9sIikgJT4lIAogIHRvcF9uKDEwLCB2aWV3cykKYGBgCgoKYGBge3J9CnRvcCAlPiUgCiAgc2VsZWN0KGFydGljbGUsIHZpZXdzKSAlPiUKICBmaWx0ZXIoIWFydGljbGUgPT0gIk1haW5fUGFnZSIsICFhcnRpY2xlID09ICJndW4gY29udHJvbGUiKSAlPiUgCiAgZGF0YXRhYmxlKGNsYXNzID0gJ2NlbGwtYm9yZGVyIHN0cmlwZScpICU+JSAKICBmb3JtYXRTdHlsZSgiYXJ0aWNsZSIsIGJhY2tncm91bmRDb2xvciA9ICJsaWdodHBpbmsiKSAlPiUgCiAgZm9ybWF0U3R5bGUoInZpZXdzIiwgYmFja2dyb3VuZENvbG9yID0gImxpZ2h0Ymx1ZSIpCmBgYAoKCmBgYHtyfQp0b3AgJT4lIAogIHNlbGVjdChhcnRpY2xlLCB2aWV3cykgJT4lCiAgZmlsdGVyKCFhcnRpY2xlID09ICJNYWluX1BhZ2UiLCAhYXJ0aWNsZSA9PSAiZmxvcmRpYSIpICU+JSAKICB0b3BfbigxMCwgdmlld3MpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBmY3RfcmV2KGFzX2ZhY3RvcihhcnRpY2xlKSksIHkgPSB2aWV3cykpICsKICBnZW9tX2NvbChmaWxsID0gInBpbmsiKSArCiAgY29vcmRfZmxpcCgpICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzID0gc2NhbGVzOjpjb21tYSkgKwogIGxhYnMoeSA9ICJOdW1iZXIgb2YgVmlld3MiLCB4ID0gIkFydGljbGUiLCB0aXRsZSA9ICJUb3AgV2lraXBlZGlhIGFydGljbGVzLCBPY3QuIDIsIDIwMTciKQpgYGAKCgpgYGB7cn0KdG9wICU+JSAKICBzZWxlY3QoYXJ0aWNsZSwgdmlld3MpICU+JQogIGZpbHRlcighYXJ0aWNsZSA9PSAiTWFpbl9QYWdlIiwgIWFydGljbGUgPT0gIk5ldmFkYSIpICU+JSAKICB0b3BfbigxMCwgdmlld3MpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBmY3RfcmV2KGFzX2ZhY3RvcihhcnRpY2xlKSksIHkgPSB2aWV3cykpICsKICBnZW9tX2NvbChmaWxsID0gInBpbmsiKSArCiAgY29vcmRfZmxpcCgpICsKICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWxzID0gc2NhbGVzOjpjb21tYSkgKwogIGxhYnMoeSA9ICJOdW1iZXIgb2YgVmlld3MiLCB4ID0gIkFydGljbGUiLCB0aXRsZSA9ICJUb3AgV2lraXBlZGlhIGFydGljbGVzLCBmZWIuIDE1LCAyMDE4IikKYGBgCgpgYGB7cn0Kc2hvb3RpbmdzICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBkYXRlLCB5ID0gdmlld3MsIGNvbG9yID0gYXJ0aWNsZSkpICsKICBnZW9tX2xpbmUoKQpgYGAKCgoKCgoKCgpgYGB7cn0KTmV2YWRhIDwtIGFydGljbGVfcGFnZXZpZXdzKGFydGljbGUgPSAiR3VuX2NvbnRyb2wiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBzdGFydCA9IGFzLkRhdGUoIjIwMTctMTAtMSIpLAogICAgICAgICAgICAgICAgICAgICAgICAgICBlbmQgPSBhcy5EYXRlKCIyMDE4LTItMTQiKSkKYGBgCgpgYGB7cn0KTmV2YWRhIDwtIHRleGFzICU+JSAKICBtdXRhdGUoZGF5ID0gLTc6MTQpICU+JSAKICBtdXRhdGUoZXZlbnQgPSAiTmF2YWRhIikKYGBgCgpgYGB7cn0KTmV2YWRhICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBkYXksIHkgPSB2aWV3cykpICsKICBnZW9tX2xpbmUoKQpgYGAKCgpgYGB7cn0KZmxvcmlkYSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gZGF5LCB5ID0gdmlld3MpKSArCiAgZ2VvbV9saW5lKCkKYGBgCgoKCgoKCmBgYHtyfQpmbG9yaWRhIDwtIGFydGljbGVfcGFnZXZpZXdzKGFydGljbGUgPSAiR3VuX2NvbnRyb2wiLAogICAgICAgICAgICAgICAgICAgICAgICAgICBzdGFydCA9IGFzLkRhdGUoIjIwMTgtMi03IiksCiAgICAgICAgICAgICAgICAgICAgICAgICAgIGVuZCA9IGFzLkRhdGUoIjIwMTgtMi0yOCIpKQoKZmxvcmlkYSA8LSBjYWxpZm9ybmlhICU+JSAKICBtdXRhdGUoZGF5ID0gLTc6MTQpICU+JSAKICBtdXRhdGUoZXZlbnQgPSAiZmxvcmRpYSIpCgpmbG9yaWRhICU+JSAKICBnZ3Bsb3QoYWVzKHggPSBkYXksIHkgPSB2aWV3cykpICsKICBnZW9tX2xpbmUoY29sb3I9InBpbmsiKQpgYGAKCmBgYHtyfQpOZXZhZGEgPC0gYXJ0aWNsZV9wYWdldmlld3MoYXJ0aWNsZSA9ICJHdW5fY29udHJvbCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIHN0YXJ0ID0gYXMuRGF0ZSgiMjAxNy05LTIwIiksCiAgICAgICAgICAgICAgICAgICAgICAgICAgIGVuZCA9IGFzLkRhdGUoIjIwMTctMTAtMTUiKSkKCk5ldmFkYSA8LSBjYWxpZm9ybmlhICU+JSAKICBtdXRhdGUoZGF5ID0gLTc6MTQpICU+JSAKICBtdXRhdGUoZXZlbnQgPSAiZmxvcmRpYSIpCgpOZXZhZGEgJT4lIAogIGdncGxvdChhZXMoeCA9IGRheSwgeSA9IHZpZXdzKSkgKwogIGdlb21fbGluZShjb2xvcj0icmVkIikKYGBgCgoKCgoKCgo=