XKCDdata is a little package to get data from individual xkcd comics.
# install.packages("devtools")
devtools::install_github("RobertMyles/XKCDdata")
Let's get this comic (it's number 1421):
library(XKCDdata)
get_comic(comic = 1421)
#> No encoding supplied: defaulting to UTF-8.
#> # A tibble: 1 x 11
#> month num link year news safe_title
#> <chr> <int> <chr> <chr> <chr> <chr>
#> 1 9 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.