Recapitulare: vizualizări legate și widget-uri de selecție

Vizualizare interactivă avansată a datelor cu plotly în R

Adam Loy

Statistician, Carleton College

Vizualizări legate

Recapitulare legare ch4_3.gif

Vizualizare interactivă avansată a datelor cu plotly în R

SharedData

shared_launches <- SharedData$new(launches, key = ~agency_type)

line_chart <- shared_launches %>%
  plot_ly() %>%
  group_by(launch_year, agency_type) %>%
  summarize(n = n()) %>%
  ungroup(launch_year) %>%
  add_lines(x = ~launch_year, y = ~n, color = ~agency_type) 
bar_chart <- shared_launches %>%
  plot_ly() %>%
  group_by(agency_type) %>%
  summarize(n = n()) %>%
  add_bars(y = ~fct_reorder(agency_type, n), x = ~n, color = ~agency_type) %>%
  layout(barmode = "overlay", yaxis = list(title = ""))
Vizualizare interactivă avansată a datelor cu plotly în R

Legarea vizualizărilor cu subplot()

subplot(bar_chart, line_chart) %>% 
  hide_legend() %>% 
  highlight()

Grafic tip bară agency_type.gif

Vizualizare interactivă avansată a datelor cu plotly în R

Legarea vizualizărilor cu bscols()

bscols(
  widths = c(4, NA),
  bar_chart %>% highlight(),
  line_chart %>% highlight()
)

Grafic tip bară agency_type bscols.gif

Vizualizare interactivă avansată a datelor cu plotly în R

Opțiunile highlight()

Argument Descriere
on eveniment de selecție: 'plotly_click', 'plotly_hover' sau 'plotly_selected'
off eveniment pentru dezactivarea selecției: 'plotly_doubleclick', 'plotly_deselect', sau 'plotly_relayout'
persistent Selecțiile să fie persistente? TRUE sau FALSE
dynamic Adăugați un widget pentru schimbarea culorilor? TRUE sau FALSE
color șir de culori pentru evidențierea selecțiilor
selectize Adăugați un widget selectize.js pentru selectarea cheilor? TRUE sau FALSE
Vizualizare interactivă avansată a datelor cu plotly în R

Widget-uri de selecție

bscols(widths = c(2, NA),
  list(filter_checkbox(id = "agency", label = "Agency type", shared_launches, ~agency_type),
       filter_select(id = "agency2", label = "Agency type dropdown", shared_launches, ~agency_type)),
  line_chart %>% highlight(on = "plotly_selected", off = "plotly_deselect")
)

Selectoare agency_type.gif

Vizualizare interactivă avansată a datelor cu plotly în R

Vehicule de lansare

glimpse(lv)

Rows: 1,578
Columns: 17
$ name         <chr> "?", "Unknown", "N-1 11A52", "Saturn V", "S…
$ family       <chr> "Unknown", "Unknown", "N-1", "SaturnV", "Sa…
$ sfamily      <chr> NA, NA, "OKB1", "MSFC", "MSFC", "SPX", "SPX…
$ manufacturer <chr> NA, NA, NA, NA, "2", NA, NA, NA, NA, NA, NA…
$ variant      <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ alias        <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1…
$ min_stage    <dbl> 1, 1, 3, 4, 3, 1, 2, 3, 1, 1, 2, 3, 6, 3, 6…
$ max_stage    <chr> "0.0  0.00", "0.0  0.00", "105.3 14.00", "1…
$ length       <chr> "0.0", "0.0", "2788.0", "2913.0", "2822.0",…
$ diameter     <dbl> 0, 0, 70000, 118000, 75000, 0, 150000, 2440…
$ launch_mass  <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ leo_capacity <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4350, 0…
$ gto_capacity <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ to_thrust    <dbl> 0, 0, 45300, 34030, 34030, 12000, 72500, 28…
$ class        <chr> "R", "R", "O", "O", "O", "R", "O", "O", "O"…
$ apogee       <dbl> 0, 0, 200, 400000, 500, 20, 200, 600, 250, …
$ range        <dbl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
Vizualizare interactivă avansată a datelor cu plotly în R

Să exersăm!

Vizualizare interactivă avansată a datelor cu plotly în R

Preparing Video For Download...