delhi%>% ggplot(aes(x=date,y =New_deaths/(population/1000000))) +geom_line() + 
      geom_line(show.legend = FALSE) + ylab("Daily new cases per million") +xlab("Date") 

 newyork%>% ggplot(aes(x=date,y =New_deaths/(population/1000000))) +geom_line() + 
      geom_line(show.legend = FALSE) + ylab("Daily new cases per million") +xlab("Date")