Dopracowywanie animacji

Interaktywna wizualizacja danych średnio zaawansowana z plotly w R

Adam Loy

Statistician, Carleton College

Dostosowania

Opcje animacji

Czas między klatkami
Przejścia między klatkami
Wygląd suwaka

Opcje wykresu

Kolor, kształt, rozmiar glifów
Etykiety osi, transformacje
Podpowiedzi (np. tekst po najechaniu)

Opcje animacji

Podstawowa animacja z domyślnymi ustawieniami.

ani <- world_indicators %>%
  plot_ly(x = ~income, y = ~co2) %>%
  add_markers(frame = ~year, 
              ids = ~country, 
              showlegend = FALSE) %>%
  layout(xaxis = list(type = "log"),
         yaxis = list(type = "log"))

Opcje animacji

Podstawowa animacja z domyślnymi ustawieniami.

ani %>%
  animation_opts(
      frame = 500, 
      transition = frame,
      easing = "linear",
      redraw = TRUE
   )

Przyspieszanie animacji

Przyspieszona animacja wykresu punktowego przy użyciu frame = 300.

ani %>%
  animation_opts(frame = 300)

Pauza między klatkami

Animacja z pauzą 350 milisekund na każdej klatce.

ani %>%
  animation_opts(
     frame = 700, 
     transition = 350
  )

Odbijające się punkty

Animacja z easing = "bounce".

ani %>%
  animation_opts(easing = "bounce")

Podstawowe opcje easing:

"linear", "quad", "cubic", "sin", "exp", "circle", "elastic", "back", "bounce"

Opcje suwaka

Podstawowa animacja z domyślnymi ustawieniami.

ani

Usuwanie suwaka

Animacja bez suwaka.

ani %>%
  animation_slider(hide = TRUE)

Edytowanie tekstu suwaka

Usunięcie prefiksu "year: " z suwaka.

ani %>%
  animation_slider(
     currentvalue = list(prefix=NULL)
  )

Edytowanie tekstu suwaka

Zwiększenie rozmiaru tekstu suwaka do 40 i zmiana koloru na czarny.

ani %>%
  animation_slider(
     currentvalue = list(prefix=NULL,
        font = list(
           color = "black", 
           size = 40
        )
     )
  )

Czas na ćwiczenia!

Interaktywna wizualizacja danych średnio zaawansowana z plotly w R