ggplot not generating correctly in shiny – shiny

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” ),
selected = “Andaman.and.Nicobar.Islands”) ,

mainPanel( plotOutput(“timeseries”) )

) # ui
server<-function(input, output){
output$timeseries<- renderPlot({
ggplot(file) + geom_line(aes(x=input$area, y=Time), color= “blue”)
})
}
the dataset has a time coulmn, and then there are columns with region names containing rainfall values to the corresponding time.

#below is the image of plot