ggplot not generating correctly in shiny

[Akash01]

i've omiited unnecessay parts of the app. App intended to visualise rainfall data

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.

Time	Andaman and Nicobar Islands	Arunachal Pradesh	Assam and Meghalaya
1951	3275.1	3354.2	2613.8
1952	3079.9	2396.1	2851.3
1953	2721.9		2559.9
1954	3449		2859.1
1955	3349.6	5063.5	2761.2
1956	3080	4195.5	2802.9

#below is the image of plot

[Matthias]

1. In the choices you have your data with dots (" Andaman.and.Nicobar.Islands"), in the table not, make sure these are identical.
2. You want to use the input variable as selector for the underlying data, not the name itself. It would be easier, to put the data into long format, call this column e.g. "region" and run a filtering based on the input, but it could be done on the fly as well:

head(mpg)
selection = "hwy"  #store the variable we want to show

ggplot(mpg, aes(x = .data[[selection]],   # use the colum "hwy" as defined in selection
                y = cty)) +
  geom_jitter()

3. You probably want to put the year on the x-axis?