df <- data.frame(Dates = c("15-04-2020", "16-04-2020", "17-04-2020", "18-04-2020", "19-04-2020", "20-04-2020", "21-04-2020", "22-04-2020", "23-04-2020", "24-04-2020", "25-04-2020", "26-04-2020", "27-04-2020", "28-04-2020", "29-04-2020"), Cases = c(11933, 12759, 13835, 14792, 16116, 17656, 18985, 20471, 21700, 23452, 24942, 26917, 28380, 29974, 31332))
my_plot <- plot_ly(df, x = df$Dates, y = df$Cases, type = "scatter", mode = "lines", showLegend = FALSE, xaxis = "Dates")
x <- list(title = "Date")
y <- list(title = "Cases")
my_plot %>% layout(xaxis = x, yaxis = y) %>% add_markers() %>% layout(title = "Corona Cases in India", showlegend = FALSE)