Shiny R: Implementieren Schieberegler Eingang

Question

Ich habe diesen Datensatz here und ich möchte einen einfachen Slider-Eingang erstellen, wo die jeweilige durchschnittliche Temperatur des Landes ändert sich durch die Änderung des Jahres. Bisher habe ich das geschrieben. Ich möchte die durchschnittliche Temperatur von Kanada in den Jahren von 1743 bis 2013 projizieren. Wie soll ich fortfahren, dies zu erreichen?

ui.R

fluidPage(
    verticalLayout(
    titlePanel("Russian Average Temperature"), 
    plotOutput("plot1"), 
    wellPanel(
     sliderInput("Year", "Timeline", 1743, 2013, 
        value = 0, step = 1) 
    ) 
) 
) 

server.R

library(shiny) 
library(dplyr) 
library(tidyr) 
library(ggplot2) 

data <- read.csv("..\\GlobalLandTemperatures\\GlobalLandTemperaturesByState.csv", 
       fileEncoding = "UTF-8") 

function(input, output) { 

    data %>% 
    filter(Country=="Canada") %>% 
    separate(col = dt, into = c("Year", "Month", "Day"), convert = TRUE) ->cCanada 
    cCanada<-na.omit(cCanada) 

    cCanada %>% 
    filter(Year>1743) %>% 
    group_by(Year) %>% 
    summarise(Temp = mean(AverageTemperature)) ->cCanAvgTemp 

    output$plot1 <- renderPlot({ 
    plot(x = Year, y = AverageTemperature) 
    }) 
} 

Answer 1

Sie müssen reaktive Dataset erstellen, so dass es so aussehen:

data <- reactive({ 
    if(!is.null(input$Year)){ 
     data<-cCanAvgTemp %>% 
     filter(cCanAvgTemp[ ,Year] >= input$Year[1]) 
    } 
    data 
    }) 

output$plot1 <- renderPlot({ 
    plot(data=data(),x = Year, y = Temp) 
    }) 

[EDIT] Voll Code:

library(shiny) 
library(dplyr) 
library(tidyr) 
library(ggplot2) 

data <- read.csv(".../data.csv") 

ui <- fluidPage(
    verticalLayout(
    titlePanel("Russian Average Temperature"), 
    plotOutput("plot1"), 
    wellPanel(
     sliderInput("Year", "Timeline", 1743, 2013, 
        value = 0, step = 1) 
    ) 
) 
) 

server <- function(input, output) { 

    data %>% 
    filter(Country=="Canada") %>% 
    separate(col = dt, into = c("Year", "Month", "Day"), convert = TRUE) ->cCanada 
    cCanada<-na.omit(cCanada) 

    cCanada %>% 
    filter(Year>1743) %>% 
    group_by(Year) %>% 
    summarise(Temp = mean(AverageTemperature)) ->cCanAvgTemp 

    data2 <- reactive({ 
    data <- as.data.frame(cCanAvgTemp) 
    if(!is.null(input$Year)){ 
     data<-data %>% 
     filter(data$Year >= input$Year[1]) #to get value for choosen year change >= sign to == 
    } 
    data 
    }) 

    output$plot1 <- renderPlot({ 
    data2 <- data2() 
    ggplot(data= data2, aes(x = Year, y = Temp)) + geom_line() 
    }) 
} 

shinyApp(ui = ui, server = server) 

Ergebnis: