Criando Memes com o R e o Pacote memer

O pacote memer foi criado para facilitar a criação de imagens macro (os famosos memes) a partir do R. Abaixo mostro como instalar este pacote e como usá-lo para criar imagens deste tipo.

Instalação

A instalação é bem simples. Como ele está hospedado no github, é necessário instalar o pacote devtools em seu computador para que o pacote memer seja instalado. Os cokandos para isso são os seguintes:

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

Com isto feito, basta carregá-lo e verificar quais são os memes disponíveis:

library(memer)
meme_list()
##  [1] "AllTheThings"       "AmericanChopper"    "AncientAliens"     
##  [4] "BatmanRobin"        "DistractedBf"       "EvilKermit"        
##  [7] "ExpandingBrain"     "FirstWorldProbs"    "FryNotSure"        
## [10] "IsThisAPigeon"      "NoneOfMyBusiness"   "CheersLeo"         
## [13] "OneDoesNotSimply"   "DosEquisMan"        "OffRamp"           
## [16] "OprahGiveaway"      "Philosoraptor"      "PicardFacePalm"    
## [19] "PicardWTH"          "PutItPatrick"       "Spongebob"         
## [22] "SuccessKid"         "ThatWouldBeGreat"   "TheRockDriving"    
## [25] "ThinkAboutIt"       "TrumpBillSigning"   "TwoButtonsAnxiety" 
## [28] "WhatIfIToldYou"     "CondescendingWonka" "Y-U-NOguy"         
## [31] "ShiaJustDoIt"       "Rainbow"            "Purples"

A partir daqui começa a diversão.

Criação de Memes

Vou começar com um exemplo simples. Veja na lista acima o meme "BatmanRobin". Para criar um meme com esta imagem, basta utilizar a função meme_get() e selecionar a opção "BatmanRobin". Depois, juntamos a função meme_text_batman() para escrever frases nos balões dos personagens.

library(dplyr)
meme_get("BatmanRobin") %>% 
  meme_text_batman(robin  = "Estudei 20 horas no Udemy e virei cientista de dados!",
                   batman = "Eu não acredito no que eu ouvi. Você é um menino ainda!")

Cada meme possui suas próprias funções para colocação de texto na imagem. Se eu criar um meme com o namorado distraído, preciso utilizar a função meme_text_distbf() para colocar os textos nos locais corretos:

meme_get("DistractedBf") %>% 
  meme_text_distbf(newgirl = "Cientistas de \nDados", guy = "Mercado de \nTrabalho", oldgirl = "Estatísticos", size = 30)

A string \n significa quebra de linha, o que permite que formatemos o texto da maneira mais adequada possível. Além disso, o argumento size ajusta o tamanho da fonte usada no meme.

Instale o pacote no seu computador e compartilhe nos comentários as suas criações!

meme_get("FryNotSure") %>% 
  meme_text_top("Não sei se isso é algo útil") %>%
  meme_text_bottom("Ou só mais uma ferramenta \ncriada pra eu procrastinar")


comments powered by Disqus