BaşlayınÜcretsiz başlayın

İlk dashboard'unu oluşturma

Veriler soccer adlı bir data frame olarak saklandı. Önceden tanımlanmış 3 grafik var:

  • goals_plot: Her takımın attığı gol sayısı
  • yellow_plot, red_plot: Her takıma verilen sarı/kırmızı kart sayısı

Burada bazı özel yardımcı fonksiyonlar kullanılıyor:

  • daytime_fn(): Belirli bir maçın gün ve saatini getirir
  • venue_fn(): Belirli bir maçın oynandığı stadyumu/tesisi getirir
  • grp_fn(): Eşleşmenin grubunu getirir
  • team1_fn(), team2_fn(): 1./2. takımın adlarını getirir
  • score1_fn(), score2_fn(): 1./2. takımın attığı gol sayısını getirir

Bu egzersiz, kursun bir parçasıdır

Building Dashboards with shinydashboard

Kursa Göz Atın

Egzersiz talimatları

  • İlk sekmenin/sayfanın birinci ila üçüncü satırlarındaki çıktılar için boşlukları doldur.
  • İkinci sayfadaki, "goals", "yellow" ve "red" olarak adlandırılmış grafik çıktıları için boşlukları doldur.
  • Shinydashboard'u göstermek için UI ve server'ı bir araya getir.

Uygulamalı etkileşimli egzersiz

Bu egzersizi bu örnek kodu tamamlayarak deneyin.

body <- dashboardBody(tabItems(
  tabItem(tabName = "matchtab", 
  fluidRow(selectInput("match", "Match number", choices = 1:nrow(soccer)),
           infoBoxOutput("daytime"), infoBoxOutput("venue"), infoBoxOutput("grp")),
  fluidRow(valueBoxOutput("team1", width = 3), valueBoxOutput("score1", width = 3), 
           valueBoxOutput("team2", width = 3), valueBoxOutput("score2", width = 3)),
  fluidRow(plotOutput("histogram"))),
  tabItem(tabName = "statstab", 
          tabBox(tabPanel("Goals", plotOutput("goals", height = "700px")),
                 tabPanel("Yellow cards", plotOutput("yellow", height = "700px")),
                 tabPanel("Red cards", plotOutput("red"))))
))

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) {
  # Fill in outputs in first to third rows of the first page
  output$daytime <- renderInfoBox(infoBox("Day and time", 
                                          daytime_fn(input$match), 
                                          icon = icon("calendar"), 
                                          color = "green"))
  output$venue <- ___(infoBox("Venue", 
                                        venue_fn(input$match), 
                                        icon = icon("map"), 
                                        color = "green"))
  output$___ <- ___(___("Group", 
                                      grp_fn(input$match), 
                                      color = "green"))
  output$team1 <- ___(valueBox("Team 1", team1_fn(input$match), color = "blue"))
  output$score1 <- ___(___("# of goals", score1_fn(input$match), color = "blue"))
  output$___ <- ___(valueBox("Team 2", team2_fn(input$match), color = "red")) 
  ___ <- ___(valueBox("# of goals", score2_fn(input$match), color = "red"))
  output$histogram <- renderPlot(plot_histogram(input$match))
  # Fill in outputs in the second page
  output$goals <- ___(goals_plot)
  output$___ <- ___(yellow_plot)
  ___ <- ___(red_plot)
}

# Put the UI and server together
___
Kodu Düzenle ve Çalıştır