geom_line not generating right plot in shiny.

shiny
#1

library(ggplot2)
library(shiny)
file<- read.csv("csvrainfall.csv")
ui<-fluidPage(

titlePanel(strong(em("Rainfall vis"))),

sidebarLayout(

  sidebarPanel(
  
  div("The following program lets you visualise rainfall patterns of various meteorological 
      areas over a period of time. ", style= "color:red"),
  
  br(), br(),
  
  selectInput("area","Select an area of choice", choices = c("	Andaman.and.Nicobar.Islands"	,"Arunachal.Pradesh"	,
              "Assam.and.Meghalaya",	"Naga.Mani.Mizo.Tripura",	"Himalayan.West.Bengal.and.Sikkim",	"Gangetic.West.Bengal",	
              "Orissa",	"Jharkhand",	"Bihar",	"East.Uttar.Pradesh",	"West.Uttar.Pradesh",	"Uttarakhand",	"Haryana.Delhi.and.Chandigarh",
              "Punjab",	"Himachal.Pradesh",	"Jammu.and.Kashmir",	"West.Rajasthan",	"East.Rajasthan",	"West.Madhya.Pradesh",
              "East.Madhya.Pradesh",	"Gujarat.Region",	"Saurashtra.and.Kutch",	"Konkan.and.Goa",	"Madhya.Maharashtra",	
              "Marathwada",	"Vidarbha",	"Chhattisgarh","Coastal.Andhra.Pradesh",	"Telangana",	"Rayalseema",	"Tamil.Nadu",
              "Coastal.Karnataka",	"North.Interior.Karnataka",	"South.Interior.Karnataka",	"Kerala",	"Lakshadweep"
  ), selected = "Andaman.and.Nicobar.Islands"),
  
  

  ),     #sidebarpanel
  
  mainPanel(plotOutput("timeseries"))

)  #sidebarlayout

) #ui

server<-function(input, output){

output$timeseries<- renderPlot({
ggplot(data= file aes(x=input$area, y=Time) )+ geom_line(, aes(x=input$area, y=Time )
})
}

shinyApp(ui=ui, server=server)

Screenshot (12)
Screenshot (12)1366×768 71 KB
#plotimage

#2

I'm assuming, from your code, that the dataset in question contains rainfall values over time for various different regions, and based on your select input, you want to plot one region's rainfall at a time.

If this is the case, you'll want to filter the dataset for the region specified and then plot it. Setting the x variable to the region simply treats that axis as categorical, hence the single value on that axis. Below is an example of how this filtering may work in practice.

ggplot(data=filter(file, Area==input$area), aes(x=Time, y=Rainfall)) +
     geom_line()

I'm not sure what the variables are named in the dataset, but just substitute the area variable for 'Area' and the rainfall variable for 'Rainfall' in the above code and it should generate no problem.

Hope this helps!

#3

Thank you for the response, but there is a problem. There is no rainfall variable as such, rainfall observations are plotted under each area as column head.
Here is a screenshot of the data file.

Screenshot rain
Screenshot rain1366×595 52.2 KB