Hur skapar jag memes i R?

Action creates insight

Hur skapar jag memes i R?

Memes, troligen det bästa som finns. Hur skapar jag memes i R? Det finns två bra sätt att göra detta på, men innan vi börjar är det viktigt du har R och Rstudio, all kod kommer att gå att köra direkt sedan. Första och lättaste alternativet är att tanka ner paket Memer och sedan kallar på en speciell meme som är inbygg i paketet. Du kan själv justera vad det ska stå i texten, däremot är det inte möjligt att använda det på vilken meme som helst och du kan inte skapa memes från scratch. Här är en kort introduktion till Memer:

# install.packages("devtools") #Installera devtools om du inte har det
devtools::install_github("sctyner/memer")

library(memer)

meme_get("DistractedBf") %>% 
  meme_text_distbf("Magick", "Du", "Memer")

I memer finns det en rad olika memes. Se sedan vilka dessa det är du kan kalla på. Se även githuben för memer för att få känsla för vad paketet kan göra. Observera att det främst är för dig som inte riktigt är bekväm med att programmera dina memes, för lite mer avancerade användare, använd då magick.

meme_list()

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

I memer är det främst gamla och ganska kass formatering på memesen. Därför är det mycket bättre att använda sig av superpaketet magick! Magick kan du skapa memes från scratch och du kan även skapa gifs vilket är otroligt kul.

Exempel på en GIF

Magick ger dig möjligheten att ladda in en bild från webben med en url, det kan vara en gif eller en vanlig bild, för att sedan lägga in texter eller filter som du själv vill ha det. Du kan även lägga ihop bilder för att skapa mer sofistikerade bilder.

# Coffin Mannen "Jag har inte tid att dö"
library(memer)
# Install.packages("magick")
library(magick)
dead<-"https://fineartamerica.com/images-medium-5/deceased-man-lying-in-a-coffin-altrendo-images.jpg"
alive<-"https://images.fineartamerica.com/images-medium-large-5/deceased-man-in-coffin-typing-on-a-laptop-altrendo-images.jpg"
dead<-image_read(dead)
alive<-image_read(alive)
img <- c(dead,alive)
image_info(img)
mannen<-image_append(image_scale(img, "300"))
white<-"https://www.macmillandictionary.com/external/slideshow/full/White_full.png"
white<-image_read(white)
white <- image_chop(white, geometry = "900x1000")
img <- c(white,mannen)
img <- image_scale(img, "900x900")
image_info(img)
mannen<-image_append(image_scale(img, "900"), stack=TRUE)
mannen
mannen <- mannen %>% image_annotate("NÄR UPPSATSEN HÅLLER PÅ ATT DÖDA DIG",
                                    size = 55, color = "white", font = "Impact", strokecolor = "black", location = "+5+5")
mannen <- mannen %>% image_annotate("MEN DU HAR INTE TID ATT DÖ",
                                    size = 70, color = "white", font = "Impact", strokecolor = "black", location = "+5+95")
mannen
Visar hur image_append kan göra bra memes

I magick är det några saker som är viktiga att hålla koll på:

  • URL (länken till en bild eller GIF) – Tänk på att länkarna bör vara stabila och inte gå ner över tid
  • Funktionen read_image(url) – läser in bilden som en magick bild
  • Håll koll på storlekarna på bilderna – image_info() – Detta är bra om du ska slå samman bilder.
  • image_append() – lägger två bilder bredvid varandra. Går att köra image_append(stack = TRUE), så läggs dom på varandra.
  • image_scale() – Ändrar skalan på bilden
  • image_annotate() – Lägger in text på bilden
  • image_chop() – Klipper av en del av bilden

Exempel på hur en enkel meme kan se ut:

## What did it cost

cost<-"https://i.imgflip.com/2d3v0k.jpg"
cost<-image_read(cost)
cost
cost <- cost %>% image_annotate("Så du spenderade orimliga \nmängder tid på att göra memes",
                                    size = 42, color = "white", strokecolor = "black", font = "Impact", location = "+25+265")
cost <- cost %>% image_annotate("Ja",
                                size = 45, color = "white", strokecolor = "black", font = "Impact", location = "+850+325")
cost <- cost %>% image_annotate("Vad kostade det dig?",
                                size = 45, color = "white", strokecolor = "black", font = "Impact", location = "+85+725")
cost <- cost %>% image_annotate("INGENTING, MAGICK ÄR GRATIS",
                                size = 43, color = "white", strokecolor = "black", font = "Impact", location = "+620+725")
cost

GIFS

Här är ett exempel på hur det fungerar med gifs:

### Crab Rave

gif<-"https://media1.tenor.com/images/a1daba752d4d491bc18180778ab54b34/tenor.gif?itemid=13276214"
crab<-image_read(gif)
crab  %>% 
  image_annotate("NÄR KONTORET ÖPPNAR IGEN", size = 36, color = "white", strokecolor = "black", font = "Impact", location = "+30+5")

Stegen är enkla, ta en url, ladda läs in den i magick, skriv text till den och placera den rätt. DONE!

Här kommer ett sista exempel med en stackad bild, man laddar in två bilder, sätter dessa i en vektor, sedan kör en image_append(STACK=TRUE).

### Scree plot

library(magick)

scree<-"http://www.sthda.com/sthda/RDoc/figure/factoextra/eigenvalue-principal-component-analysis-scree-plot-eigenvalues-data-mining-1.png"
reee<-"https://www.stickpng.com/assets/thumbs/58486a72849cf46a2a931338.png"
scree<-image_read(scree)
ree<-image_read(reee)
ree<-image_scale(ree, "435")
img<-c(scree,ree)
img<-image_mosaic(img)

bilder<-c(scree,img)
image_append(bilder, stack=TRUE)

Hoppas att detta har varit inspirerande. Jag delar med mig några av mina memes jag har gjort med denna metod. Läs gärna också beskrivningen till magick, där finns det mycket fler verktyg att jobba med såsom filter.

Detta har varit “Hur skapar jag memes i R?”, hoppas att denna lilla guide har varit till nytta. Kika in min huvudsida om du undrar mer om mig.

Leave a Reply