R - Shiny - Dynami c Панель выбора сюжета

Question

Я хотел бы иметь гистограмму в R / Shiny, есть динамика. Я выбираю страну и хотел бы видеть только данные по этой стране. Я создал часть кода R, но связь между выбором страны и гистограммой отсутствует.

server.R file

library(datasets)
salg <- read_excel("C:\\Users\\Tue Hellstern\\Documents\\Demo\\Demo\\data\\SalgsData.xlsx", sheet = "salgs_data")

# Define a server for the Shiny app
function(input, output) {


  output$selected_var <- renderText({ 
    paste("You have selected", input$valgtLand)
  })

  # Fill in the spot we created for a plot
  output$salgplot <- renderPlot({

    # Render a barplot
    salg %>%
      ggplot(aes(x=CompanyType, y=Total)) +
      geom_bar(stat="identity")
  })
}

Файл ui.R

library(datasets)
salg <- read_excel("C:\\Users\\Tue Hellstern\\Documents\\Demo\\Demo\\data\\SalgsData.xlsx", sheet = "salgs_data")

# Use a fluid Bootstrap layout
fluidPage(    

    # Give the page a title
    titlePanel("Salg efter kundetype"),

    # Generate a row with a sidebar
    sidebarLayout(      

        # Define the sidebar with one input
        sidebarPanel(helpText("Du har mulighed for at vaelge kun at se et bestemt land"), 

                     selectInput("valgtland", h3("Vaelg land"), 
                                 choices = salg$Country, 
                                 selected = 1)),

        # Create a spot for the barplot
        mainPanel(
            plotOutput("salgplot")  
        )

    )
)

Я получаю этот макет, но как мне сделать отношение выделения / линейного графика?

введите описание изображения здесь

Answer 1

Вам необходимо отфильтровать данные в соответствии с input$valgtland перед построением графика.

Пример макета с использованием набора данных радужной оболочки, так как вы не предоставили полезные данные:

library(shiny)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(ggplot2)

server <- function(input, output) {
    output$selected_var <- renderText({
        paste("You have selected", input$valgtLand)
    })

    # Fill in the spot we created for a plot
    output$salgplot <- renderPlot({
        # Render a barplot
        dplyr::filter(iris, Species == input$valgtland) %>%
            ggplot(aes(x=cut_interval(Petal.Width, n=4), y=Sepal.Length)) +
            geom_bar(stat="identity")
    })
}

ui <- fluidPage(    

    # Give the page a title
    titlePanel("Salg efter kundetype"),

    # Generate a row with a sidebar
    sidebarLayout(      

        # Define the sidebar with one input
        sidebarPanel(helpText("Du har mulighed for at vaelge kun at se et bestemt land"), 

            selectInput("valgtland", h3("Vaelg land"), 
                choices = unique(iris$Species), 
                selected = "setosa")),

        # Create a spot for the barplot
        mainPanel(
            plotOutput("salgplot")  
        )

    )
)

shinyApp(ui = ui, server = server)
#> 
#> Listening on http://127.0.0.1:5699

^{Создано в 2020-03-12 с помощью Представить пакет (v0.3.0)}