Skip to content

Instantly share code, notes, and snippets.

@pbiecek

pbiecek/wikitrends2.R

Created July 15, 2015 23:32
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save pbiecek/92969900f3dfdec821a9 to your computer and use it in GitHub Desktop.
Save pbiecek/92969900f3dfdec821a9 to your computer and use it in GitHub Desktop.
Download ZIP
wikitrends2
Raw
wikitrends2.R
wp <- wp_trend(page = c("Andrzej_Sapkowski","Andrzej_Sapkowski","Jacek_Dukaj", "Jacek_Dukaj"),
from = "2013-01-01",
to = today(),
lang = c("pl","en","pl","en"))
head(wp)
## date count lang page rank month title
## 1 2013-01-12 464 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski
## 2 2013-01-13 538 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski
## 3 2013-01-10 536 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski
## 4 2013-01-11 457 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski
## 5 2013-01-16 540 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski
## 6 2013-01-17 541 pl Andrzej_Sapkowski 1366 201301 Andrzej_Sapkowski
ggplot(wp, aes(date, count, group=page, color = page)) +
geom_point(alpha=0.5) +
geom_smooth(size=1.5, se=FALSE, span=0.1) +
theme_bw() + scale_y_sqrt() +
facet_grid(lang~.)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment