En este post comparto el código para reproducir el siguiente gráfico con la data extraída del repositorio de la Universidad Johns Hopkings Repo
Librerias library(ggplot2) ## Gráficos library(ggpubr) ## El panel del gráfico library(dplyr) ## Data library(directlabels) ## Para agregar las etiquetas al final de la lineas library(rio) ## Para importar la data Código ### Link al repo ### confirmed <- "https://raw.github.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv" ############## ###### Preparando la data############# WorldData<-import(file = confirmed)%>% ### import jala el archivo mutate(type="confirmed")%>% ### creo una variable tidyr::gather(Fecha,Valor,-c(type,"Province/State", "Country/Region",Lat,Long)) ### la convierto en formato "long" WorldData=WorldData%>%dplyr::select(Country="Country/Region", Provincia="Province/State", type, Valor, Fecha) paises<- c("Peru","Chile","Ecuador", "Brazil") ## Preparo lista de países ####### Preparo mi subset para gráficar####### d1=WorldData%>%filter(type=="confirmed", Country%in%paises, Valor>0)%>% group_by(Country)%>% mutate(Fecha=as.