streamgraph added

proj3/projekt.R

@@ -1,5 +1,6 @@
+# dataset: https://www.kaggle.com/aiaiaidavid/airplane-crash-fatalities-since-1908-dv-03032020
 # setup srodowiska ####
-install.packages('shinyjs')
+setwd('/Users/patrycjalazna/Desktop/wizualizacja-danych/projekt_3/')
 
 # importy ####
 library(shiny)
@@ -57,64 +58,57 @@ airplane_crashes$btwn_6PM_6AM <- if_else
 
 
 # ShinyApp ####
-load_data <- function() {
+
-  Sys.sleep(2)
-  hide("loading_page")
-  show("main_content")
-}
 
 ui <- fluidPage(
-  useShinyjs(),
+  id = "main_content",
-  div(
+  navbarPage("Airplane crashes from 1908 to 2020",
-    id = "loading_page",
+             tabPanel("General overview",
-    h1("Loading...")
+                      sidebarLayout(
-  ),
+                        sidebarPanel(
-  hidden(
+                          # wybór daty
-    div(
+                          dateRangeInput('dates',
-      id = "main_content",
+                                         'Date range:',
-      navbarPage("Airplane crashes from 1908 to 2020",
+                                         min(airplane_crashes$Date),
-                 tabPanel("General overview",
+                                         max(airplane_crashes$Date)),
-                          sidebarLayout(
+                          # wybor godziny
-                            sidebarPanel(
+                          timeInput("time", "Time (local):", seconds = FALSE)
-                              # wybór daty
+                        ),
-                              dateRangeInput('dates',
+                        mainPanel(
-                                             'Date range:',
+                          # wykresiki
-                                             min(airplane_crashes$Date),
+                          plotlyOutput("weekdayCrashes")
-                                             max(airplane_crashes$Date)),
-                              # wybor godziny
-                              timeInput("time", "Time (local):", seconds = FALSE)
-                            ),
-                            mainPanel(
-                              # wykresiki
-                              plotlyOutput("weekdayCrashes")
                           
-                            )
+                        )
-                          )
+                      )
-                 ),
+             ),
-                 tabPanel("Map",
+             tabPanel("Streamgraph",
-                          mainPanel(
+                      mainPanel(
-                            # mapy
+                        streamgraphOutput("operatorCrashes")
-                            plotlyOutput("mapPlot")
+                      )
-                            #plotOutput("mapPlot")
+             ),
-                          )
+             
-                 ),
+             tabPanel("Map",
-                 tabPanel("Data",
+                      mainPanel(
-                          sidebarPanel(
+                        # mapy
-                            dateRangeInput('dataDates',
+                        plotlyOutput("mapPlot")
-                                           'Date range:',
+                        #plotOutput("mapPlot")
-                                           min(airplane_crashes$Date),
+                      )
-                                           max(airplane_crashes$Date))
+             ),
-                          ),
+             tabPanel("Data",
-                          mainPanel(
+                      sidebarPanel(
-                            DT::dataTableOutput('allData')
+                        dateRangeInput('dataDates',
-                          ))
+                                       'Date range:',
-     )
+                                       min(airplane_crashes$Date),
-  )
+                                       max(airplane_crashes$Date))
+                      ),
+                      mainPanel(
+                        DT::dataTableOutput('allData')
+                      ))
   )
 )
 
+
 server <- function(input, output, session) {
-  load_data()
   # godzina
   observe(print(strftime(input$time, "%R")))
   
@@ -147,6 +141,32 @@ server <- function(input, output, session) {
     
   })
   
+  
+  output$operatorCrashes <- renderStreamgraph({
+    
+    main_type_wise_year <- airplane_crashes %>%
+      select(Year, Type) %>%
+      # replace model number by empty strings
+      mutate(main_type = str_replace_all(Type, "[A-Za-z]*-?\\d+-?[A-Za-z]*.*", "")) %>%
+      # skip empty strings row
+      filter(main_type > 'A') %>%
+      group_by(Year, main_type) %>%
+      summarize(n = n()) %>%
+      group_by(Year) %>%
+      top_n(5, n)
+    
+    # i teraz z tego streamgraph
+    main_type_wise_year <-  main_type_wise_year %>% arrange(-n)
+    streamgraph <-  main_type_wise_year %>%
+      group_by(Year, main_type) %>%
+      tally(wt=n) %>%
+      streamgraph("main_type", "n", "Year", interpolate="cardinal") %>%
+      sg_fill_brewer("PuOr") %>%
+      sg_legend(TRUE)
+    
+    streamgraph
+  })
+  
   output$mapPlot <- renderPlotly({
     
     states_list <- c('Alabama','Alaska','Alaksa','Arizona','Arkansas',"California",
@@ -239,7 +259,7 @@ server <- function(input, output, session) {
   # poprawic szerkosc wierszy
   output$allData <- DT::renderDataTable({
     airplane_crashes %>%
-     # filter(Year == input$dataDates) %>%
+      # filter(Year == input$dataDates) %>%
       DT::datatable()
   })
   
@@ -247,3 +267,45 @@ server <- function(input, output, session) {
 
 shinyApp(ui = ui, server = server)
 
+
+
+
+# tutaj sb rysuje wykresiki demo, zeby nie odpalac shiny za kazdym razem ####
+
+# number of fatal accidents by operator - top 5
+
+##
+# extract and group by manufacturer
+# main_type_wise_year <- airplane_crashes %>%
+#   select(Year, Type) %>%
+#   # replace model number by empty strings
+#   mutate(main_type = str_replace_all(Type, "[A-Za-z]*-?\\d+-?[A-Za-z]*.*", "")) %>% 
+#   # skip empty strings row
+#   filter(main_type > 'A') %>%
+#   group_by(Year, main_type) %>%
+#   summarize(n = n()) %>%
+#   group_by(Year) %>%
+#   top_n(5, n) 
+# #%>% mutate(main_type = reorder_within(-n, main_type, Year))
+# 
+# # i teraz z tego streamgraph
+# main_type_wise_year <-  main_type_wise_year %>% arrange(-n)
+# main_type_wise_year %>%
+#   group_by(Year, main_type) %>%
+#   tally(wt=n) %>%
+#   streamgraph("main_type", "n", "Year", interpolate="cardinal") %>%
+#   sg_fill_brewer("PuOr") %>%
+#   sg_legend(TRUE)
+
+####
+# airplane_operators <- airplane_crashes %>% count(Operator, sort = TRUE)
+# airplane_operators <- head(airplane_operators, 5)
+# ggplot(airplane_operators, aes(x = Operator, y = n)) + 
+#   geom_point(color = "#765432", alpha = 0.8) +
+#   labs(title = "No. of fatal accidents by operator", x = '', y = '')
+# 
+# airplane_operators %>% 
+#   streamgraph(key="Operator", value=, date="Year", offset="zero") %>%
+#   sg_fill_brewer("BuPu")
+
+# wykres ile wypadkow kazdego operatora w kazdym roku