Zacznij terazZacznij za darmo

Dodaj tytuł wykresu: pole tekstowe

W Shiny każda zmiana wartości dowolnego pola wejściowego powoduje, że aktualna wartość tego pola jest natychmiast dostępna po stronie serwera – za pośrednictwem argumentu input funkcji serwera. Wartość dowolnego pola możesz odczytać przy użyciu input$<inputId>.

Aby nadać polu tekstowemu domyślną wartość początkową, użyj argumentu value.

To ćwiczenie jest częścią kursu

Studia przypadków: tworzenie aplikacji webowych w Shiny w R

Zobacz kurs

Instrukcje do ćwiczenia

Przygotowana aplikacja Shiny rysuje wykres PKB per capita w zestawieniu z oczekiwaną długością życia dla krajów ze zbioru danych gapminder. Twoim zadaniem jest dodanie pola tekstowego, które pozwoli użytkownikom zmieniać tytuł wykresu. W tym celu:

  • Dodaj pole tekstowe do UI z ID "title", etykietą "Title" i wartością domyślną "GDP vs life exp".
  • W kodzie serwera spraw, aby tytuł wykresu zawsze odzwierciedlał bieżącą wartość pola tekstowego – umieść go wewnątrz funkcji ggtitle() (wiersz 24).

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

# Load the ggplot2 package for plotting
library(ggplot2)

# Define UI for the application
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # Add a title text input
      ___(___, ___, ___)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

# Define the server logic
server <- function(input, output) {
  output$plot <- renderPlot({
    ggplot(gapminder, aes(gdpPercap, lifeExp)) +
      geom_point() +
      scale_x_log10() +
      # Use the input value as the plot's title
      ggtitle(___)
  })
}

# Run the application
shinyApp(ui = ui, server = server)
Edytuj i uruchom kod