Programación en R: 1ª entrega

Primer meme

• Esta vez usaremos, en primer lugar, el paquete memer, usaremos una de las plantillas de este paquete para hacer el meme.

Code

#Instalamos la versión de desarrollo desde GitHub:
library(devtools) #install.packages("devtools")
library(memer) #devtools::install_github("sctyner/memer")

• Una vez hemos cargado las bibliotecas necesarias podemos ver las plantillas que nos ofrece el paquete con la función meme_list():

Code

meme_list()

 [1] "AgnesWink"          "AllTheThings"       "AmericanChopper"   
 [4] "AnakinPadmeRight"   "AncientAliens"      "BatmanRobin"       
 [7] "DistractedBf"       "EvilKermit"         "ExpandingBrain"    
[10] "FirstWorldProbs"    "FryNotSure"         "HotlineDrake"      
[13] "IsThisAPigeon"      "NoneOfMyBusiness"   "CheersLeo"         
[16] "MoneyPrinter"       "OneDoesNotSimply"   "DosEquisMan"       
[19] "OffRamp"            "OprahGiveaway"      "Philosoraptor"     
[22] "PicardFacePalm"     "PicardWTH"          "Purples"           
[25] "PutItPatrick"       "Rainbow"            "ShiaJustDoIt"      
[28] "Spongebob"          "SuccessKid"         "SuezExcavator"     
[31] "ThatWouldBeGreat"   "TheRockDriving"     "ThinkAboutIt"      
[34] "TrumpBillSigning"   "TwoButtonsAnxiety"  "WhatIfIToldYou"    
[37] "CondescendingWonka" "YoDawg"             "Y-U-NOguy"         

• Todo listo, seleccionamos la plantilla que más nos guste y podremos hacer el meme, usaremos las funciones meme_get() y meme_text_batman(), let’s go!

Code

meme_get("BatmanRobin") %>%
  meme_text_batman("Quiero usar Python profe, R no me gusta",
  "Pero estas tonto chaval?! Fuera de clase!!",
  font = "Impact",
  color = "black",
  size = 20)

Segundo meme

• Esta vez haremos un meme con una foto almacenada dentro de nuestro ordenador, usaremos meme en lugar de memer:

Code

library(meme) #install.packages("meme")

• Este meme será un poco más simple (pero igual de gracioso, o eso espero), la función que usaremos será meme().

Code

my_imagen <- "imagenes/my_imagen_Lucas_Alejandro_OC55646.jpg"
meme::meme(my_imagen, "Yo cuando me obligan", "a que mi trabajo en R sea reproducible 
(no quiero que me copien los memes >:v)",
  color = "white",
  font = "Impact",
  vjust = 0.1,) 

Meme extra

• Para terminar, voy a tomarme la licencia de realizar un meme extra para contentar (o provocar) a dos nichos de mercado (uno de ellos segmentado en dos sectores) bastante más críticos que los Python users y los R users (algo dfícil conociendo la animadversión que estos dos grupos guardan entre sí): los aficionados al fútbol español y los macroeconomistas neokeynesianos. Razonadamente, podréis pensar que cómo voy a hacer eso, easy, usaré como plantilla para el meme la celebración de Bellingham en uno de los partidos de pretemporada que disputó el Real Madrid, en este caso, el jugador estaba plantando cara a la los leones del Athletic Club; con este meme trataré de mostrar la complicada situación en la que un defensor actual de los DSGE models (un servidor, mismamente, probablemente enfoque el TFG en esta línea y tenga que vivir este problema desde dentro) tiene que desenvolver su trabajo, esto es, debido a la (lógica) existencia de constantes críticas (y burlas, para que mentirnos) por parte de los defensores de los Agent-Based models.Vamos a ello!! (Inserten música épica porque se viene).

Code

bellingham_pic <- "imagenes/bellingham.jpeg"
meme::meme(bellingham_pic,"Money matters!
Non-rational, non-representative an heterogeneous agent
distribution of the shocks
unstable estimations", 
  "Me estimating 
  my own DSGE model",
  size = 1.25,
  color = "white",
  font = "Impact",
  vjust = 0.05)

• Y esto sería todo por hoy, espero que os hayan gustado los memes 🫡 🙌