animbook

“animbook” is a package to help the user visualize the changes in performance measures and demographic affiliations using animation. It is a package to help prepare, plot, and animate the data.

Installation

You can install the development version of animbook from GitHub with:

install.packages("animbook")

Examples

Accounting database: osiris

library(animbook)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

data <- osiris |> 
  filter(country %in% c("US", "JP"))

label <- c("Top 25%", "25-50", "50-75", "75-100", "Not listed")

accounting <- anim_prep(data, 
                      id = ID, 
                      values = sales, 
                      time = year, 
                      label = label, 
                      ncat = 4, 
                      group = country)

p <- wallaby_plot(accounting,
                  group_palette = RColorBrewer::brewer.pal(9, "Set1"),
                  shade_palette = c("#737373", "#969696", "#BDBDBD",
                                    "#D9D9D9","#D9D9D9","#D9D9D9"),
                  subset = "bottom",
                  relation = "many_one",
                  height = 1,
                  size = 2,
                  width = 100,
                  total_point = 1000)
#> You can now use the animbook::anim_animate() function to
#>           transform it into an animated object

p2 <- anim_animate(p)
#> You can now pass it to gganimate::animate().
#>                    The recommended setting is nframes = 139

gganimate::animate(p2, nframes = 139)
#> 
#> Rendering [>-------------------------------------------] at 8.3 fps ~ eta:
#> 17sRendering [>-------------------------------------------] at 8.6 fps ~ eta:
#> 16sRendering [>-------------------------------------------] at 8.3 fps ~ eta:
#> 16sRendering [=>------------------------------------------] at 8.5 fps ~ eta:
#> 16sRendering [=>------------------------------------------] at 8.7 fps ~ eta:
#> 15sRendering [==>-----------------------------------------] at 8.7 fps ~ eta:
#> 15sRendering [==>-----------------------------------------] at 8.8 fps ~ eta:
#> 15sRendering [===>----------------------------------------] at 8.7 fps ~ eta:
#> 15sRendering [===>----------------------------------------] at 8.7 fps ~ eta:
#> 14sRendering [====>---------------------------------------] at 8.7 fps ~ eta:
#> 14sRendering [=====>--------------------------------------] at 8.7 fps ~ eta:
#> 14sRendering [======>-------------------------------------] at 8.7 fps ~ eta:
#> 14sRendering [======>-------------------------------------] at 8.6 fps ~ eta:
#> 14sRendering [======>-------------------------------------] at 8.6 fps ~ eta:
#> 13sRendering [=======>------------------------------------] at 8.6 fps ~ eta:
#> 13sRendering [========>-----------------------------------] at 8.6 fps ~ eta:
#> 13sRendering [========>-----------------------------------] at 8.5 fps ~ eta:
#> 13sRendering [=========>----------------------------------] at 8.5 fps ~ eta:
#> 13sRendering [=========>----------------------------------] at 8.5 fps ~ eta:
#> 12sRendering [==========>---------------------------------] at 8.4 fps ~ eta:
#> 12sRendering [===========>--------------------------------] at 8.4 fps ~ eta:
#> 12sRendering [===========>--------------------------------] at 8.3 fps ~ eta:
#> 12sRendering [============>-------------------------------] at 8.3 fps ~ eta:
#> 12sRendering [=============>------------------------------] at 8.3 fps ~ eta:
#> 12sRendering [=============>------------------------------] at 8.2 fps ~ eta:
#> 12sRendering [=============>------------------------------] at 8.2 fps ~ eta:
#> 11sRendering [==============>-----------------------------] at 8.2 fps ~ eta:
#> 11sRendering [===============>----------------------------] at 8.2 fps ~ eta:
#> 11sRendering [================>---------------------------] at 8.2 fps ~ eta:
#> 11sRendering [================>---------------------------] at 8.2 fps ~ eta:
#> 10sRendering [================>---------------------------] at 8.1 fps ~ eta:
#> 10sRendering [=================>--------------------------] at 8.1 fps ~ eta:
#> 10sRendering [==================>-------------------------] at 8.1 fps ~ eta:
#> 10sRendering [===================>------------------------] at 8.1 fps ~ eta:
#> 10sRendering [===================>------------------------] at 8.1 fps ~ eta:
#> 9sRendering [====================>-----------------------] at 8.1 fps ~ eta:
#> 9sRendering [=====================>------------------------] at 8 fps ~ eta:
#> 9sRendering [======================>-----------------------] at 8 fps ~ eta:
#> 9sRendering [======================>-----------------------] at 8 fps ~ eta:
#> 8sRendering [=======================>----------------------] at 8 fps ~ eta:
#> 8sRendering [========================>---------------------] at 8 fps ~ eta:
#> 8sRendering [=========================>--------------------] at 8 fps ~ eta:
#> 8sRendering [=========================>--------------------] at 8 fps ~ eta:
#> 7sRendering [==========================>-------------------] at 8 fps ~ eta:
#> 7sRendering [===========================>------------------] at 8 fps ~ eta:
#> 7sRendering [============================>-----------------] at 8 fps ~ eta:
#> 7sRendering [============================>-----------------] at 8 fps ~ eta:
#> 6sRendering [===========================>----------------] at 7.9 fps ~ eta:
#> 6sRendering [============================>---------------] at 7.9 fps ~ eta:
#> 6sRendering [=============================>--------------] at 7.9 fps ~ eta:
#> 6sRendering [=============================>--------------] at 7.9 fps ~ eta:
#> 5sRendering [==============================>-------------] at 7.9 fps ~ eta:
#> 5sRendering [===============================>------------] at 7.9 fps ~ eta:
#> 5sRendering [================================>-----------] at 7.9 fps ~ eta:
#> 5sRendering [================================>-----------] at 7.9 fps ~ eta:
#> 4sRendering [=================================>----------] at 7.9 fps ~ eta:
#> 4sRendering [==================================>---------] at 7.9 fps ~ eta:
#> 4sRendering [==================================>---------] at 7.9 fps ~ eta:
#> 3sRendering [===================================>--------] at 7.9 fps ~ eta:
#> 3sRendering [====================================>-------] at 7.9 fps ~ eta:
#> 3sRendering [=====================================>------] at 7.9 fps ~ eta:
#> 3sRendering [=====================================>------] at 7.9 fps ~ eta:
#> 2sRendering [======================================>-----] at 7.9 fps ~ eta:
#> 2sRendering [=======================================>----] at 7.9 fps ~ eta:
#> 2sRendering [========================================>---] at 7.9 fps ~ eta:
#> 1sRendering [==========================================>---] at 8 fps ~ eta:
#> 1sRendering [===========================================>--] at 8 fps ~ eta:
#> 1sRendering [============================================>-] at 8 fps ~ eta:
#> 1sRendering [============================================>-] at 8 fps ~ eta:
#> 0sRendering [=============================================>] at 8 fps ~ eta:
#> 0sRendering [==============================================] at 8 fps ~ eta: 0s

Voter behavior

library(animbook)

voter <- anim_prep_cat(data = aeles,
                       id = id,
                       values = party,
                       time = year,
                       group = gender,
                       order = NULL)

p_voter <- wallaby_plot(data = voter,
                  group_palette = c("pink", "blue", "red"),
                  shade_palette = c("#737373", "#969696", "#BDBDBD",
                                    "#D9D9D9","#D9D9D9","#D9D9D9"),
                  time_dependent = FALSE,
                  rendering = "gganimate",
                  subset = "top",
                  relation = "one_many",
                  height = 1,
                  size = 2.5,
                  width = 100,
                  total_point = 1000)
#> You can now use the animbook::anim_animate() function to
#>           transform it into an animated object

p2_voter <- anim_animate(p_voter)
#> You can now pass it to gganimate::animate().
#>                    The recommended setting is nframes = 139

gganimate::animate(p2_voter, nframes = 139)
#> 
#> Rendering [>-------------------------------------------] at 9.5 fps ~ eta:
#> 15sRendering [>-------------------------------------------] at 9.2 fps ~ eta:
#> 15sRendering [>-------------------------------------------] at 9.1 fps ~ eta:
#> 15sRendering [=>--------------------------------------------] at 9 fps ~ eta:
#> 15sRendering [=>------------------------------------------] at 8.8 fps ~ eta:
#> 15sRendering [=>------------------------------------------] at 8.7 fps ~ eta:
#> 15sRendering [==>-----------------------------------------] at 8.7 fps ~ eta:
#> 15sRendering [==>-----------------------------------------] at 8.6 fps ~ eta:
#> 15sRendering [===>----------------------------------------] at 8.6 fps ~ eta:
#> 15sRendering [===>----------------------------------------] at 8.5 fps ~ eta:
#> 15sRendering [====>---------------------------------------] at 8.5 fps ~ eta:
#> 15sRendering [====>---------------------------------------] at 8.5 fps ~ eta:
#> 14sRendering [=====>--------------------------------------] at 8.5 fps ~ eta:
#> 14sRendering [=====>--------------------------------------] at 8.4 fps ~ eta:
#> 14sRendering [======>-------------------------------------] at 8.4 fps ~ eta:
#> 14sRendering [======>-------------------------------------] at 8.3 fps ~ eta:
#> 14sRendering [=======>------------------------------------] at 8.3 fps ~ eta:
#> 14sRendering [=======>------------------------------------] at 8.2 fps ~ eta:
#> 14sRendering [========>-----------------------------------] at 8.2 fps ~ eta:
#> 14sRendering [========>-----------------------------------] at 8.1 fps ~ eta:
#> 14sRendering [========>-----------------------------------] at 8.1 fps ~ eta:
#> 13sRendering [=========>----------------------------------] at 8.1 fps ~ eta:
#> 13sRendering [==========>-----------------------------------] at 8 fps ~ eta:
#> 13sRendering [===========>----------------------------------] at 8 fps ~ eta:
#> 13sRendering [==========>---------------------------------] at 7.9 fps ~ eta:
#> 13sRendering [===========>--------------------------------] at 7.9 fps ~ eta:
#> 13sRendering [===========>--------------------------------] at 7.8 fps ~ eta:
#> 13sRendering [============>-------------------------------] at 7.8 fps ~ eta:
#> 13sRendering [============>-------------------------------] at 7.7 fps ~ eta:
#> 13sRendering [=============>------------------------------] at 7.7 fps ~ eta:
#> 12sRendering [=============>------------------------------] at 7.6 fps ~ eta:
#> 12sRendering [==============>-----------------------------] at 7.6 fps ~ eta:
#> 12sRendering [==============>-----------------------------] at 7.5 fps ~ eta:
#> 12sRendering [===============>----------------------------] at 7.5 fps ~ eta:
#> 12sRendering [================>---------------------------] at 7.4 fps ~ eta:
#> 12sRendering [================>---------------------------] at 7.4 fps ~ eta:
#> 11sRendering [=================>--------------------------] at 7.3 fps ~ eta:
#> 11sRendering [==================>-------------------------] at 7.3 fps ~ eta:
#> 11sRendering [===================>------------------------] at 7.3 fps ~ eta:
#> 10sRendering [====================>-----------------------] at 7.3 fps ~ eta:
#> 10sRendering [=====================>----------------------] at 7.3 fps ~ eta:
#> 10sRendering [=====================>----------------------] at 7.3 fps ~ eta:
#> 9sRendering [======================>---------------------] at 7.3 fps ~ eta:
#> 9sRendering [=======================>--------------------] at 7.3 fps ~ eta:
#> 9sRendering [========================>-------------------] at 7.3 fps ~ eta:
#> 8sRendering [=========================>------------------] at 7.3 fps ~ eta:
#> 8sRendering [=========================>------------------] at 7.2 fps ~ eta:
#> 8sRendering [==========================>-----------------] at 7.2 fps ~ eta:
#> 8sRendering [==========================>-----------------] at 7.2 fps ~ eta:
#> 7sRendering [===========================>----------------] at 7.2 fps ~ eta:
#> 7sRendering [============================>---------------] at 7.2 fps ~ eta:
#> 7sRendering [============================>---------------] at 7.2 fps ~ eta:
#> 6sRendering [=============================>--------------] at 7.2 fps ~ eta:
#> 6sRendering [==============================>-------------] at 7.2 fps ~ eta:
#> 6sRendering [===============================>------------] at 7.2 fps ~ eta:
#> 5sRendering [================================>-----------] at 7.2 fps ~ eta:
#> 5sRendering [================================>-----------] at 7.1 fps ~ eta:
#> 5sRendering [=================================>----------] at 7.1 fps ~ eta:
#> 5sRendering [=================================>----------] at 7.1 fps ~ eta:
#> 4sRendering [==================================>---------] at 7.1 fps ~ eta:
#> 4sRendering [===================================>--------] at 7.1 fps ~ eta:
#> 4sRendering [===================================>--------] at 7.1 fps ~ eta:
#> 3sRendering [====================================>-------] at 7.1 fps ~ eta:
#> 3sRendering [====================================>-------] at 7.2 fps ~ eta:
#> 3sRendering [=====================================>------] at 7.2 fps ~ eta:
#> 3sRendering [======================================>-----] at 7.2 fps ~ eta:
#> 2sRendering [=======================================>----] at 7.2 fps ~ eta:
#> 2sRendering [========================================>---] at 7.2 fps ~ eta:
#> 2sRendering [========================================>---] at 7.2 fps ~ eta:
#> 1sRendering [=========================================>--] at 7.2 fps ~ eta:
#> 1sRendering [==========================================>-] at 7.2 fps ~ eta:
#> 1sRendering [==========================================>-] at 7.2 fps ~ eta:
#> 0sRendering [===========================================>] at 7.3 fps ~ eta:
#> 0sRendering [============================================] at 7.3 fps ~ eta: 0s