File:Gganimation.gif

From 太極
Jump to navigation Jump to search

Gganimation.gif(480 × 480 pixels, file size: 750 KB, MIME type: image/gif, looped, 100 frames, 10 s)

Note: Due to technical limitations, thumbnails of high resolution GIF images such as this one will not be animated.

Summary

library(gganimate)
library(ggplot2)
library(tidyverse)
# sudo apt update
# sudo apt-get install libmagick++-dev
library(ggimage)

data_link <- "https://raw.githubusercontent.com/goodekat/presentations/master/2019-isugg-gganimate-spooky/bat-data/bats-subset.csv"

bats <- read.csv(data_link) %>% 
  mutate(id = factor(id))

bat_image_link <- "https://upload.wikimedia.org/wikipedia/en/a/a9/MarioNSMBUDeluxe.png"

animation <- bats %>%
  mutate(image = bat_image_link) %>%
  filter(id == 1) %>%
  ggplot(aes(x = longitude, y = latitude)) +
  geom_image(aes(image = image), size = 0.2) +
  theme_void() +
  transition_reveal(time)
animate(animation, duration = 20)
anim_save("animation.gif", animation)

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current15:12, 27 May 2024Thumbnail for version as of 15:12, 27 May 2024480 × 480 (750 KB)Brb (talk | contribs)<syntaxhighlight lang='r'> library(gganimate) library(ggplot2) library(tidyverse) library(ggimage) data_link <- "https://raw.githubusercontent.com/goodekat/presentations/master/2019-isugg-gganimate-spooky/bat-data/bats-subset.csv" bats <- read.csv(data_link) %>% mutate(id = factor(id)) bat_image_link <- "https://upload.wikimedia.org/wikipedia/en/a/a9/MarioNSMBUDeluxe.png" animation <- bats %>% mutate(image = bat_image_link) %>% filter(id == 1) %>% ggplot(aes(x = longitude, y = la...

The following page uses this file:

Metadata