p {
 font-weight: bold;
 }

My meme

This is my first meme used for finishing the assignment of Stats 220 in the University of Auckland. The meme includes three pictures. I chose these pictures from the website. They all beautiful and enjoyable beaches in New Zealand. Ready for your next trip? 

library(magick)
# Three pictures of New Zealand Beaches

image_blank(width = 600, 
            height = 450, 
            color = "#000000") %>%
image_annotate(text = "Text here",
                 color = "#999999",
                 size = 40,
                 font = "Impact")

# the first 
beaches_line <- image_read("https://www.travelandleisure.com/thmb/CcJ7OSaaC9E-ThtIqWbonu5KJ2U=/750x0/filters:no_upscale():max_bytes(150000):strip_icc():format(webp)/cathedral-cove-new-zealand-NZBEACHES0419_0-941ef4624dc148f096a7cbb841957934.jpg") %>%
  image_scale(200)

# the second
Otago_Coast <- image_read("https://www.travelandleisure.com/thmb/uYkrT75L9f6ynhpq6kdn05QdIVs=/750x0/filters:no_upscale():max_bytes(150000):strip_icc():format(webp)/moeraki-boulders-new-zealand-NZBEACHES0419-5c31761fca7841c4813665c470b92c06.jpg") %>%
  image_scale(200)

# the third
Karekare_Beach <- image_read("https://www.travelandleisure.com/thmb/Yuppq6oOCOGBrzQ0DATtHb5H-1E=/750x0/filters:no_upscale():max_bytes(150000):strip_icc():format(webp)/karekare-beach-new-zealand-NZBEACHES0419-07840e680060477c8dc1e76144d61ec2.jpg") %>%
  image_scale(200)

beach_vector <- c(beaches_line, Otago_Coast,Karekare_Beach)

happy_beach<-image_append(beach_vector, stack = TRUE)

image_write(happy_beach, "happy_beach.png")

image_write(beaches_line, "beaches_line.png")

image_write(Otago_Coast, "Otago_Coast.png")

image_write(Karekare_Beach, "Karekare_Beach.png")

My animated GIF

Four pictures are from the website. I like to discover events ,attractions, activities in Auckland. I have explored some of the most stunning attractions,it is no wonder that New Zealand is one of the most beautiful countries in the world. 

library(magick)
# read 4 images from disk and resize to the same size
meme1 <- image_read("https://a.travel-assets.com/findyours-php/viewfinder/images/res70/179000/179003-North-Island.jpg") %>% image_resize("300x350")
meme2 <- image_read("https://heartofthecity.co.nz/sites/default/files/styles/ratio_3_x_1_medium/public/2020-06/Viaduct%20Harbour%202.jpg?itok=UiB6Bl4P") %>% image_resize("300x350")
meme3 <- image_read("https://www.nzherald.co.nz/resizer/bMJDf5FoZKOdv5IAkE2EvZ2jj8w=/1440x810/smart/filters:quality(70)/cloudfront-ap-southeast-2.images.arcpublishing.com/nzme/Z5MO2XTL7ORKYQPLES772OPI7Q.jpg") %>% image_resize("300x350")
meme4 <- image_read("https://kia.co.nz/assets/Uploads/190208blackcapsLLP-1000x500.jpg") %>% image_resize("300x350")
#merge the 4 images 
img_merge <- c(meme1,meme2,meme3,meme4)
#animate the 4 images
animation = image_animate(img_merge,fps=10,delay = 1*100)

#save the animation image to a GIF file
image_write(animation,"my_animation.gif")