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.0 ──
## ✓ ggplot2 3.3.2     ✓ purrr   0.3.4
## ✓ tibble  3.0.4     ✓ dplyr   1.0.2
## ✓ tidyr   1.1.2     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.0
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x 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?

Avatar
Deborah Apthorp
Senior Lecturer in Psychology

My research interests include visual perception, Parkinson’s disease, postural sway, and EEG.