Let’s load the data and use the R shiny template provided in 9-2-ShinyStructure.

target_mean_by_era <- read.csv("dataforshiny/target_mean_by_era.csv", header=T)

ui <- fluidPage(

  # Application title
  titlePanel("Title"),

  sidebarPanel(
    # Define some inputs here
  ),

  mainPanel(
    # output (from the server) go here
  )

)

server <- function(input, output) {
  # do something
}

1. Change the title to “Target across Era”.
2. In the sidebarPanel, create a slideInput so the user can pick an Era ranging from 1 to 120.
3. Under the slider, display a text that tells us the target mean of the era chosen by the user.
4. In the mainPanel, display a line plot, where, x is the first column and y is the second column using ggplot2 .

1.

titlePanel("Target across Era")

2.

sliderInput("era1", "Era:", min = 1, max = 120, step=1, value = 1)

3.

#in UI
textOutput("erainfo2")

#in Server
  output$erainfo2 <- renderText({
        paste0("The mean of the target in era", input$era2, "is ",
      target_mean_by_era$Mean[target_mean_by_era$era==input$era2], ".")
  })

4.

#in UI
plotOutput("targetmean")

#in Server
  output$targetmean <- renderPlot({
    ggplot(data=target_mean_by_era, aes(x=era, y=Mean))+
      geom_line()+
      scale_x_continuous(breaks = seq(0, 120, by = 10))+
      labs(title = "Mean of target across eras", x="era")
  })

You can download the code part3.R and make sure it is in the same directory as the folder dataforshiny.