संचयी ऐनिमेशन

इंटरमीडिएट इंटरएक्टिव डेटा विज़ुअलाइज़ेशन with plotly in R

Adam Loy

Statistician, Carleton College

बेल्जियम की प्रति व्यक्ति आय का एनिमेटेड टाइम सीरीज़ प्लॉट.

बेल्जियम आय डेटा

belgium <- world_indicators %>%
  filter(country == "Belgium")
belgium

# A tibble: 59 x 11
  country  year income   co2 military population  urban life_expectancy four_regions
  <chr>   <dbl>  <dbl> <dbl>    <dbl>      <dbl>  <dbl>           <dbl> <chr>       
1 Belgium  1960  12600  9.93     3.4     9170000 8.46e6            69.6 europe      
2 Belgium  1961  13100 10.1      3.26    9230000 8.50e6            70.5 europe      
3 Belgium  1962  13700 10.6      3.28    9280000 8.55e6            70.2 europe      
4 Belgium  1963  14100 11.3      3.22    9340000 8.62e6            70   europe      
5 Belgium  1964  15000 11        3.21    9390000 8.72e6            70.7 europe      
# … with 54 more rows, and 2 more variables: eight_regions <chr>, six_regions <chr>

फ्रेम क्या है?

# A tibble: 59 x 11
  country  year income   co2
  <chr>   <dbl>  <dbl> <dbl>
1 Belgium  1960  12600  9.93
2 Belgium  1961  13100 10.1 
3 Belgium  1962  13700 10.6 
4 Belgium  1963  14100 11.3 
5 Belgium  1964  15000 11   
6 Belgium  1965  15300 11.2 
# … with 53 more rows, and 7
#   more variables

क्या frame = ~year ??

फ्रेम क्या है?

लक्ष्य फ्रेम्स के बीच बने रहने वाली जानकारी का चित्रण

frame = ~year यदि frame = ~year रखें तो पर्सिस्टेंट डेटा नहीं रहता.

डेटासेट का संचय

1960 के लिए संचयित डेटा फ्रेम.

डेटासेट का संचय

1961 के लिए संचयित डेटा फ्रेम.

डेटासेट का संचय

1962 तक का संचयित डेटा फ्रेम.

split()

library(dplyr)
library(purrr)

belgium %>%
  split(.$year)

year वैरिएबल के आधार पर डेटासेट को data.frame की सूची में बाँटें

accumulate()

library(dplyr)
library(purrr)
belgium %>%
  split(.$year) %>%
  accumulate(~bind_rows(.x, .y))

सिंगल-रो data.frames को रिकर्सिव तरीके से बाइंड करने का चित्र.

name

library(dplyr)
library(purrr)
belgium %>%
  split(.$year) %>%
  accumulate(~bind_rows(.x, .y)) %>%
  set_names(1960:2018)

सिंगल-रो data.frames को रिकर्सिव तरीके से बाइंड करने का चित्र.

combine

library(dplyr)
library(purrr)
belgium %>%
  split(.$year) %>%
  accumulate(~bind_rows(.x, .y)) %>%
  set_names(1960:2018) %>%
  bind_rows(.id = "frame")

data frames की सूची को पंक्तियों से बाइंड होते दिखाया गया है.

# A tibble: 1,770 x 12
   frame country  year income   co2 military population  urban life_expectancy
   <chr> <chr>   <dbl>  <dbl> <dbl>    <dbl>      <dbl>  <dbl>           <dbl>
 1 1960  Belgium  1960  12600  9.93     3.4     9170000 8.46e6            69.6
 2 1961  Belgium  1960  12600  9.93     3.4     9170000 8.46e6            69.6
 3 1961  Belgium  1961  13100 10.1      3.26    9230000 8.50e6            70.5
 4 1962  Belgium  1960  12600  9.93     3.4     9170000 8.46e6            69.6
 5 1962  Belgium  1961  13100 10.1      3.26    9230000 8.50e6            70.5
 6 1962  Belgium  1962  13700 10.6      3.28    9280000 8.55e6            70.2
 7 1963  Belgium  1960  12600  9.93     3.4     9170000 8.46e6            69.6
 8 1963  Belgium  1961  13100 10.1      3.26    9230000 8.50e6            70.5
 9 1963  Belgium  1962  13700 10.6      3.28    9280000 8.55e6            70.2
10 1963  Belgium  1963  14100 11.3      3.22    9340000 8.62e6            70  
# … with 1,760 more rows, and 3 more variables: four_regions <chr>,
#   eight_regions <chr>, six_regions <chr>

animate

library(dplyr)
library(purrr)
belgium %>%
  split(.$year) %>%
  accumulate(~bind_rows(.x, .y)) %>%
  set_names(1960:2018) %>%
  bind_rows(.id = "frame") %>%
  plot_ly(x = ~year, y = ~income) %>%
  add_lines(
    frame = ~frame, showlegend = FALSE
  )

समय के साथ बेल्जियम की प्रति व्यक्ति आय का ऐनिमेशन.

अभ्यास करते हैं!

इंटरमीडिएट इंटरएक्टिव डेटा विज़ुअलाइज़ेशन with plotly in R