Eksploracja zbioru danych z Shiny
Studia przypadków: tworzenie aplikacji webowych w Shiny w R
Dean Attali
Shiny Consultant
Eksploracja zbioru danych z Shiny
Zbiór danych
+ Środowisko interaktywne
+ Przeglądanie danych
+ Filtrowanie danych
+ Pobieranie danych
= Aplikacja Shiny
Wizualizacja danych jako tabela
| country | continent | year | lifeExp | pop | gdpPercap |
|---|---|---|---|---|---|
| Afghanistan | Asia | 1952 | 28.801 | 8425333 | 779.445315 |
| Afghanistan | Asia | 1957 | 30.332 | 9240934 | 820.85303 |
| Afghanistan | Asia | 1962 | 31.997 | 10267083 | 853.10071 |
| Afghanistan | Asia | 1967 | 34.02 | 11537966 | 836.197138 |
| Afghanistan | Asia | 1972 | 36.088 | 13079460 | 739.981106 |
| Afghanistan | Asia | 1977 | 38.438 | 14880372 | 786.11336 |
| Afghanistan | Asia | 1982 | 39.854 | 12881816 | 978.011439 |
| Afghanistan | Asia | 1987 | 40.822 | 13867957 | 852.39595 |
| Afghanistan | Asia | 1992 | 41.674 | 16317921 | 649.34140 |
| Afghanistan | Asia | 1997 | 41.763 | 22227415 | 635.34135 |
Tabele w Shiny
Tabele są wyjściami (output)
- Wyjścia używają funkcji zastępczych w UI:
tableOutput("my_table")- Wyjścia używają funkcji render na serwerze:
output$my_table <- renderTable({ gapminder })
Filtrowanie danych w tabeli
Wejścia (inputs) służą do filtrowania
- Dodanie wejścia do UI:
selectInput("country", "Country", choices = levels(gapminder$country))- Filtrowanie danych za pomocą wejścia:
output$my_table <- renderTable({
subset(gapminder, country == input$country)
})
Opcje wyboru (select input)
Argument
choicesfunkcjiselectInput()może być dowolną listą ciągówchoicesmoże być podzbiorem zmiennej
selectInput("country", "Country", choices = levels(gapminder$country)[1:10])choicesmożna rozszerzyć o nowe wartości
selectInput("country", "Country", choices = c("any", levels(gapminder$country)))
Czas na ćwiczenia!
Studia przypadków: tworzenie aplikacji webowych w Shiny w R
