Creating images with R

library(magick)

#crying Kardashian - Sqaure One 

sad_kim1 <- image_read("kim-kardashian-crying-1602066708.jpg") %>%
  image_scale(500)



#Crying Kardashian - Sqaure Two 

sad_kim2 <- image_blank(width = 500,
                             height = 321, 
                             color ="#000000" ) %>%
  image_annotate(text = "ANY SOCIAL ACTIVITY EVER", 
                  color =  "#FFB6C1", 
                  size = 40, 
                  font = "Helvetica", 
                  gravity= "center")


#Happy Kardashian - Square Three


happy_kim1 <- image_read("AHP-OP-KIMKVOICE.jpg") %>%
  image_scale(500)


#Happy Kardasian - Sqaure Four

happy_kim2 = image_blank(width = 500,
                           height = 281, 
                           color ="#000000") %>%
  
  image_annotate(text = "ONCE I AM THERE", 
                 color =  "#FFB6C1", 
                 size= 40, 
                 font = "Helvetica", 
                 gravity= "center")


#Making each row 


first_row <- c(sad_kim1, sad_kim2) %>%
  image_append()

second_row = c(happy_kim1, happy_kim2) %>%
image_append()

meme <- c(first_row, second_row) %>%
  image_append(stack= TRUE)


image_write(meme,"my_meme.png")

meme

library(magick)

# creating a vector for the counts 
counts = 1 : 3 %>% as.character()


#creating each frame

char_vector <- c("Happy New Year!")

#creating a circle for the animation 

circle_image  = image_read("circle.png") %>%
  image_scale(500)


#frames for the animation

frame1 <- circle_image %>%
  image_annotate (text = counts[3], size= 200, gravity = "center") %>% 
  image_scale (200)  %>%
  image_extent("500x500")

frame2 <- circle_image %>%
  image_annotate (text = counts[2], size = 200, gravity = "center" ) %>%
  image_scale (300)  %>%
  image_extent("500x500")

frame3 <- circle_image %>% 
  image_annotate (text=counts[1], size = 200, gravity = "center") %>% 
  image_scale (400) %>%
  image_extent("500x500")

frame4 <- circle_image %>% 
  image_annotate (text = char_vector[1], size = 40, gravity = "center") %>%
  image_scale (500)

#putting the frames in order using a vector 

frames <-  c(frame1, frame2, frame3, frame4)

#creating an animation 
my_animation <- image_animate(frames, fps = 1)%>%
  image_write("my_animation.gif")


p { 
font-weight: normal; 
}

body {
background-color:   #FFFF00; 
}

h2:hover { 

color: white;

}

R Markdown

My meme

My meme includes two contrasting pictures of Kim Kardashian. They are contrasting because in one image she is happy and in the other one she is miserable. In general, I think the kardasian family is very dramatic so I thought it was fitting to include Kim Kardasian with the specific text I used alongside.

My meme is different because I have taken two arbitrary photos of Kim Kardashain on the internet and spliced them with text that compliments her expression in each photo.

My animated GIF

My animated gif includes several frames which symbolize a countdown to the new year. My animated gif is original because I used counts to signal the 3,2,1 countdown and included the char_vector to include happy new year” as the last frame in the sequence.

Creating images with R

with a little bit of Magick

Beth Harford

2023-03-13

R Markdown

My meme

My animated GIF