R_scripts/eagle_animation.R at master · wegmann/R_scripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
# EAGLE -> EARTH Observation Animation
# based on script by https://gist.github.com/emitanaka/ef1d1b6ade5e57acc4734bc4bfbcc0cd
# adapted to EAGLE MSc. program and Earth Observation by Martin Wegmann

library(readbitmap)

library(gganimate)
library(dplyr)
library(ggplot2)

# import text files (black text, white background)
# b1 <- read.bitmap("~/eagle.png")
b1 <- read.bitmap("eagle_web.png")
# b2 <- read.bitmap("~/eagle_EO.png")
b2 <- read.bitmap("eo.png")

# adapt imported files to suit ggplot2 requirements
x1 <- 1 - b1[,,1]
x2 <- 1 - b2[,,1]

df_eagle <- data.frame(row=as.vector(col(x1)),
                         col=8 - as.vector(row(x1)),
                         value=as.vector(x1)) %>%
  filter(value==1)


df_eo <- data.frame(row=as.vector(col(x2)),
                        col=8 - as.vector(row(x2)),
                        value=as.vector(x2)) %>%
  filter(value==1)
plot_df <- bind_rows(
  df_eagle %>% mutate(idx=1),
  df_eo %>% mutate(idx=2)
)

# create the plot with the two text parts
p <- ggplot(plot_df, aes(row, col)) + geom_tile(fill="blue", width=1, height=1) + coord_equal() + xlab("") + ylab("") + theme(axis.line = element_line(colour = "black"),
                                                                                                                                panel.grid.major = element_blank(),
                                                                                                                                panel.grid.minor = element_blank(),
                                                                                                                                panel.border = element_blank(),
                                                                                                                                panel.background = element_blank())  + theme_void()
# check plot - should show overlapping text
p

# create the actual animation
eagle_eo_anim <- p +
  transition_states(
    states            = idx, # variable in data
    transition_length = 1,   # all states display for 1 time unit
    state_length      = 1    # all transitions take 1 time unit
  ) +
  enter_fade() +             # How new blocks appear
  exit_fade() +              # How blocks disappear
  ease_aes('sine-in-out')    # Tweening movement

# save the animation with specific frames, size etc.
save_animation(animate(eagle_eo_anim, fps=20, nframes=50, width=2800, height=400), "eagle_eo.gif")