data <- read.csv2("WHO-COVID-19-global-data.csv", header = TRUE,sep=",")
La siguiente gráfica incluye los datos de la Organización Mundial de la Salud
## `geom_smooth()` using formula 'y ~ x'