Untitled

Column

GRÁFICO_1

ggplotly(MUERTES_SINADEF)

Column

GRÁFICO_2

#GRAFICO
MUERTES_COVID_F <- ggplot(COVID_PER,aes(date, (new_deaths))) + #ggplot(COVID,aes(date, (total_cases), group = SUB_SECT, color = factor(SUB_SECT))) +
  geom_line(color=OEFA_1,size=1.5) +
  geom_smooth(method = "loess", formula = y~x, se=T, color= "firebrick",fill="gray70", span=0.25)+
  # scale_color_manual(values=c(OEFA_1))+ #scale_color_manual(values=c(OEFA_1,OEFA_3,OEFA_2,OEFA_5, OEFA_7, OEFA_4))+
  theme_minimal()+
  # ylim(0,30)+
  labs(x="",
       y="Cantidad de muertes",
       title = "Evolución de la cantidad de nuevas muertes",
       subtitle = paste("(Del ",
                        fecha_inicio,
                        " al ",
                        fecha_final,
                        sep = ""),
       caption = "Fuente: Our World in Data (ourworldindata.org/coronavirus)\nElaboración: Propia\n")+
  theme(legend.position = "bottom",legend.title = element_blank(),panel.grid.minor = element_blank())+
  scale_x_date(labels = date_format("%B-%d"), breaks = date_breaks("4 week"))+
  
  #facet_wrap(.~SUB_SECT, 
  #scales="free_x",
  #nrow = 1,
  #labeller = label_value,
  #strip.position = "bottom")+
  ggeasy::easy_rotate_x_labels(angle=45)

MUERTES_COVID_F

ggplotly(MUERTES_COVID_F)

GRÁFICO_3

#GRAFICO
CASOS_COVID_F <- ggplot(COVID_PER,aes(date, (new_cases))) + #ggplot(COVID,aes(date, (total_cases), group = SUB_SECT, color = factor(SUB_SECT))) +
  geom_line(color=OEFA_1,size=1.5) +
  geom_smooth(method = "loess", formula = y~x, se=T, color= "firebrick",fill="gray70", span=0.25)+
  theme_minimal()+
  labs(x="",
       y="Cantidad de nuevos casos",
       title = "Evolución de la cantidad de nuevos casos.",
       subtitle = paste("(Del ",
                        fecha_inicio,
                        " al ",
                        fecha_final,
                        sep = ""),
       caption = "Fuente: Our World in Data (ourworldindata.org/coronavirus)\nElaboración: Propia\n")+
  theme(legend.position = "bottom",legend.title = element_blank(),panel.grid.minor = element_blank())+
  scale_x_date(labels = date_format("%d %b"), breaks = date_breaks("4 weeks"))+
  
  ggeasy::easy_rotate_x_labels(angle=45)

CASOS_COVID_F

ggplotly(CASOS_COVID_F)