Il MEMEZIONARIO

Il MEMEZIONARIO


Come sapete il nostro primo obiettivo è quello di fornirvi una lente che vi permetta di vedere il mondo economico e l’attualità in modo più semplice e più direttamente comprensibile.

Tuttavia, scrivendo i vari articoli, ci siamo resi conto che ci sono concetti semplici che sarebbe meglio spiegare una volta per tutte in modo semplice e, magari, divertente.

Per questo motivo abbiamo pensato di ideare il Memezionario. Una rubrica in cui spiegheremo concetti semplici utilizzando dei meme.

Avete dei dubbi su alcuni concetti? Qualche parte dei nostri articoli non è stata abbastanza chiara?

Scriveteci, e noi risponderemo con un MEME che vi toglierà ogni dubbio!

Per i più nerd: troverete anche i codici di R che abbiamo usato per fare i MEME!


Ecco il codice di R:

#main sources for meme with R: https://cran.r-project.org/web/packages/meme/vignettes/meme.html
## cleaning all
rm(list = ls())

## your path: put the folder path of this script here (the \ must be changed in /)
setwd("D:/google_drive/Arrexini^2/Segreteria/memezionario")

#windows users have to register the font before (I don't know how it works for mac-users)
if (.Platform$OS.type == "windows") {
  windowsFonts(
    Impact = windowsFont("Impact"),
    Courier = windowsFont("Courier")
  )
}

#packages
if (!"meme" %in% installed.packages()) install.packages("meme")
if (!"magick" %in% installed.packages()) install.packages("magick")
library(meme)
library(magick)

#Main code:
##import
x <- image_read("problems.jpg")
print(x)

#choose font and colors
font <- "Impact"
color <- "white"
strokecolor <- "black"

#first block
x <- image_annotate(x, "INFLAZIONE", size=28, location="+105+105",strokecolor=strokecolor, color=color, font=font)
print(x)
x <- image_annotate(x, "SPREAD", size=28, location="+240+100", strokecolor=strokecolor, color=color, font=font)
print(x)
x <- image_annotate(x, "PIL", size=28, location="+360+125", strokecolor=strokecolor, color=color, font=font)
print(x)

#second block
x <- image_annotate(x, "INFLAZIONE", size=28, location="+100+350",strokecolor=strokecolor, color=color, font=font)
print(x)
x <- image_annotate(x, "SPREAD", size=28, location="+230+345", strokecolor=strokecolor, color=color, font=font)
print(x)
x <- image_annotate(x, "PIL", size=28, location="+360+375", strokecolor=strokecolor, color=color, font=font)
print(x)

#third block
## arrexini name and logo
t <- image_scale(image_read("solo_testo.png"),"x30")
x <- image_composite(x, t, offset = "+100+575")
print(x)
## everything together
x <- image_annotate(x, "MEMEZIONARIO", size=38, location="+75+660", strokecolor = strokecolor, color=color, font=font)
print(x)

l <- image_scale(image_read("logo.png"), "x60")
x <- image_composite(x,l,offset="+405+690")

#saving
image_write(x, path="meme.png", format="png")
Arrexini2

Lascia un commento