XKCDdata is a little package to get data from individual xkcd comics, written by Randall Munroe.
install.packages("XKCDdata")
# or:
# install.packages("devtools")
devtools::install_github("RobertMyles/XKCDdata")
Let's get data on this comic (it's number 1421):
library(XKCDdata)
get_comic(comic = 1421)
#> # A tibble: 1 x 11
#> month num link year news safe_title
#> <chr> <int> <chr> <chr> <chr> <chr>
#> 1 9 1421 http://xkcd.com/1421 2014 Future Self
#> # ... with 5 more variables: transcript <chr>, alt <chr>, img <chr>,
#> # title <chr>, day <chr>
Or you can get a list of comics pretty easily using purrr, apply()
or for loops. With purrr, it would be something like:
# list of comics:
cm <- c(1421, 641, 87, 92)
purrr::map_df(cm, get_comic)
Then you could plot it XKCD-style with the xkcd package if you wanted.
Thanks to Colin, you can view the comics inside your default Viewer (in the Viewer pane if you're on RStudio)! Give it a shot with:
print_xkcd(1)