ÎncepețiÎncepe gratuit

Mărește graficul

La fel cum funcțiile de input pot avea argumente diferite în funcție de tipul de intrare, și funcțiile placeholder pentru output pot avea argumente diferite pentru a modifica aspectul sau comportamentul lor.

De exemplu, atunci când afișezi un grafic într-o aplicație Shiny folosind plotOutput(), înălțimea implicită a graficului este de 400 de pixeli. Funcția plotOutput() are câțiva parametri care pot fi folosiți pentru a modifica înălțimea sau lățimea graficului.

Acest exercițiu face parte din cursul

Studii de caz: Construirea aplicațiilor web cu Shiny în R

Vezi cursul

Instrucțiuni pentru exercițiu

Codul aplicației Shiny din exercițiul anterior este deja furnizat. Sarcina ta este să mărești graficul. Mai exact:

  • 600 de pixeli înălțime și 600 de pixeli lățime. Poți consulta documentația plotOutput() pentru a afla ce parametri să folosești (linia 18).

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("title", "Title", "GDP vs life exp"),
      numericInput("size", "Point size", 1, 1),
      checkboxInput("fit", "Add line of best fit", FALSE),
      colourInput("color", "Point color", value = "blue"),
      selectInput("continents", "Continents",
                  choices = levels(gapminder$continent),
                  multiple = TRUE,
                  selected = "Europe"),
      sliderInput("years", "Years",
                  min(gapminder$year), max(gapminder$year),
                  value = c(1977, 2002))
    ),
    mainPanel(
      # Make the plot 600 pixels wide and 600 pixels tall
      plotOutput("plot", ___, ___)
    )
  )
)

# Define the server logic
server <- function(input, output) {
  output$plot <- renderPlot({
    data <- subset(gapminder,
                   continent %in% input$continents &
                     year >= input$years[1] & year <= input$years[2])
    
    p <- ggplot(data, aes(gdpPercap, lifeExp)) +
      geom_point(size = input$size, col = input$color) +
      scale_x_log10() +
      ggtitle(input$title)
    
    if (input$fit) {
      p <- p + geom_smooth(method = "lm")
    }
    p
  })
}

shinyApp(ui = ui, server = server)
Editează și rulează codul