How to make memes in R

Very silly post for today

I recently learned an extremely silly use for R, and that is making memes for my Stats class.

Dos Equis Man

You just need to install a little package called “memer” from Github (you need Developer Tools installed if you don’t have them), and then you can go your merry way, using Tidyverse.

# devtools::install_github("sctyner/memer")
# install.packages('tidyverse')

library(memer)
library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6     ✔ purrr   0.3.4
## ✔ tibble  3.1.8     ✔ dplyr   1.0.9
## ✔ tidyr   1.2.0     ✔ stringr 1.4.0
## ✔ readr   2.1.2     ✔ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

There are quite a few useful inbuilt memes!

meme_get("Philosoraptor") %>%
  meme_text_top("If I fail statistics") %>%
  meme_text_bottom("Will I become a statistic?")

Some of them have inbuilt text placement.

meme_get("DistractedBf") %>% 
  meme_text_distbf("jamovi", "Psych students", "SPSS")

One trick I worked out is that you can insert line breaks:

meme_get("DosEquisMan") %>%
  meme_text_top("I don't always buy \nterrible software") %>%
  meme_text_bottom("But when I do, \nI buy SPSS")

Comments?