#library(xlsx)
library(dplyr)
library(reshape)
library(ggplot2)
library(stringr)
library(DT)

Porto Alegre - RS

# https://ti.saude.rs.gov.br/covid19/
minuto = read.csv2(file = "20210315.csv", header = T)
minuto = minuto[minuto$MUNICIPIO == "PORTO ALEGRE", ]
minuto = minuto[minuto$EVOLUCAO == "OBITO", ]
minuto$data = paste(substring(minuto$DATA_INCLUSAO_OBITO, 7, 10), substring(minuto$DATA_INCLUSAO_OBITO, 4, 5), substring(minuto$DATA_INCLUSAO_OBITO, 1, 2), sep = "-")
minuto$data = as.Date(minuto$data)
minutoz = minuto %>%
  group_by(data) %>%
  summarize(Obtos = n())     
mdfminutosz = melt(minutoz, id.vars='data')
mdfminutosz$variable = str_replace(mdfminutosz$variable, "Obtos", "Óbitos")
# https://covid.saude.rs.gov.br/                                                             

minuto = read.csv2(file = "transparencia_dados_covid15.csv", sep = ";", header = T, row.names =NULL)
minuto = minuto[minuto$MUNICIPIO == "Porto Alegre", ]
minuto$data = as.Date(minuto$DATA.INCLUSAO.REGISTRO)
minutos = minuto %>%
  group_by(data) %>%
  summarize(UTI.Adulto = sum(NUMERO.LEITOS.UTI.ADULTO..SUS..PRIVADO.),
            Leitos.Adulto= sum(NUMERO.LEITOS.CLINICOS.ADULTO...SUS..PRIVADO.),
            UTI.Pediatrico= sum(NUMERO.LEITOS.UTI.PEDIATRICO...SUS..PRIVADO.),
            N.Respiradores= sum(NUMERO.DE.RESPIRADORES),
            N.Susp.em.UTI= sum(NUMERO.SUSPEITOS.CONFIRMADOS.COVID.SRAG.EM.LEITO.UTI.ADULTO..SUS.),
            N.Conf.em.UTI= sum(NUMERO.CONFIRMADOS.COVID.EM.LEITO.UTI.ADULTO...SUS..PRIVADO.),
            N.Susp.Ped= sum(NUMERO.SUSPEITOS.COVID.SRAG.EM.LEITO.UTI.PEDIATRICO...SUS..PRIVADO.),
            N.Ped.em.UTI= sum(NUMERO.CONFIRMADOS.COVID.EM.LEITO.UTI.PEDIATRICO...SUS..PRIVADO.),
            N.Casos.Respirador= sum(NUMERO.PACIENTES.ADULTOS.SUSPEITOS.E.CONFIRMADOS.UTILIZANDO.RESPIRADORES.EM.UTI),
            N.Adultis.UTI= sum(NUMERO.PACIENTES.ADULTOS.INTERNADOS.EM.LEITOS.UTI...SUS..PRIVADO.))
minutos = as.data.frame(minutos)
names(minutos) = c("data","Vagas UTI Adulto", "Vagas Leito Adulto", "Vagas UTI Pediátrico", "Numero de Respiradores", "Casos Suspeitos em UTI", "Casos Confirmados em UTI", "Casos Suspeitos Pediátricos", "Casos Confirmados Pediátricos em UTI", "Casos em Respitador", "Casos Adultos em UTI")
mdfminutos = melt(minutos, id.vars='data')
mdfminutos = rbind(mdfminutos, mdfminutosz)
names(mdfminutos) = c("data", "Variável", "value")

Dados Diários

DT::datatable(minutos, filter = 'top', options = list(
  language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Portuguese.json'),
  pageLength = 8, autoWidth = F
))

Obtos Diários

DT::datatable(minutoz, filter = 'top', options = list(
  language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Portuguese.json'),
  pageLength = 8, autoWidth = F
))

Séries Temporais

Série Geral

ggplot(mdfminutos[mdfminutos$data < Sys.Date(), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Geral 2021

ggplot(mdfminutos[(mdfminutos$data >= "2020-12-31") & (mdfminutos$data < Sys.Date()), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "week")

Série ültima Quinzena

ggplot(mdfminutos[(mdfminutos$data >= Sys.Date()-15) & (mdfminutos$data < Sys.Date()) , ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "day")

Série Vagas UTI Adulto

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Vagas UTI Adulto"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Vagas Leito Adulto

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Vagas Leito Adulto"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Vagas UTI Pediátrico

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Vagas UTI Pediátrico"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Número de Respiradores

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Numero de Respiradores"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Suspeitos em UTI

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Suspeitos em UTI"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Confirmados em UTI

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Confirmados em UTI"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Suspeitos Pediátricos

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Suspeitos Pediátricos"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Confirmados Pediátricos em UTI

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Confirmados Pediátricos em UTI"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos em Respitador

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos em Respitador"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Adultos em UT

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Adultos em UTI"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série de Óbtos

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Óbitos"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

### Últimos 90 Dias

ggplot(mdfminutos[(mdfminutos$data > Sys.Date()-90) & (mdfminutos$data < Sys.Date())  & (mdfminutos$Variável == "Óbitos"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Rio Grande do Sul

# https://ti.saude.rs.gov.br/covid19/
minuto = read.csv2(file = "20210315.csv", header = T)
minuto = minuto[minuto$EVOLUCAO == "OBITO", ]
minuto$data = paste(substring(minuto$DATA_INCLUSAO_OBITO, 7, 10), substring(minuto$DATA_INCLUSAO_OBITO, 4, 5), substring(minuto$DATA_INCLUSAO_OBITO, 1, 2), sep = "-")
minuto$data = as.Date(minuto$data)
minutoz = minuto %>%
  group_by(data) %>%
  summarize(Obtos = n())     
mdfminutosz = melt(minutoz, id.vars='data')
mdfminutosz$variable = str_replace(mdfminutosz$variable, "Obtos", "Óbitos")
# https://covid.saude.rs.gov.br/
minuto = read.csv2(file = "transparencia_dados_covid15.csv", sep = ";", header = T, row.names =NULL)
minuto$data = as.Date(minuto$DATA.INCLUSAO.REGISTRO)
minutos = minuto %>%
  group_by(data) %>%
  summarize(UTI.Adulto = sum(NUMERO.LEITOS.UTI.ADULTO..SUS..PRIVADO.),
            Leitos.Adulto= sum(NUMERO.LEITOS.CLINICOS.ADULTO...SUS..PRIVADO.),
            UTI.Pediatrico= sum(NUMERO.LEITOS.UTI.PEDIATRICO...SUS..PRIVADO.),
            N.Respiradores= sum(NUMERO.DE.RESPIRADORES),
            N.Susp.em.UTI= sum(NUMERO.SUSPEITOS.CONFIRMADOS.COVID.SRAG.EM.LEITO.UTI.ADULTO..SUS.),
            N.Conf.em.UTI= sum(NUMERO.CONFIRMADOS.COVID.EM.LEITO.UTI.ADULTO...SUS..PRIVADO.),
            N.Susp.Ped= sum(NUMERO.SUSPEITOS.COVID.SRAG.EM.LEITO.UTI.PEDIATRICO...SUS..PRIVADO.),
            N.Ped.em.UTI= sum(NUMERO.CONFIRMADOS.COVID.EM.LEITO.UTI.PEDIATRICO...SUS..PRIVADO.),
            N.Casos.Respirador= sum(NUMERO.PACIENTES.ADULTOS.SUSPEITOS.E.CONFIRMADOS.UTILIZANDO.RESPIRADORES.EM.UTI),
            N.Adultis.UTI= sum(NUMERO.PACIENTES.ADULTOS.INTERNADOS.EM.LEITOS.UTI...SUS..PRIVADO.))
minutos = as.data.frame(minutos)
names(minutos) = c("data","Vagas UTI Adulto", "Vagas Leito Adulto", "Vagas UTI Pediátrico", "Numero de Respiradores", "Casos Suspeitos em UTI", "Casos Confirmados em UTI", "Casos Suspeitos Pediátricos", "Casos Confirmados Pediátricos em UTI", "Casos em Respitador", "Casos Adultos em UTI")
mdfminutos = melt(minutos, id.vars='data')
mdfminutos = rbind(mdfminutos, mdfminutosz)
names(mdfminutos) = c("data", "Variável", "value")

Dados Diários

DT::datatable(minutos, filter = 'top', options = list(
  language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Portuguese.json'),
  pageLength = 8, autoWidth = F
))

Obtos Diários

DT::datatable(minutoz, filter = 'top', options = list(
  language = list(url = '//cdn.datatables.net/plug-ins/1.10.11/i18n/Portuguese.json'),
  pageLength = 8, autoWidth = F
))

Séries Temporais

Série Geral

ggplot(mdfminutos[mdfminutos$data < Sys.Date(), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Geral 2021

ggplot(mdfminutos[(mdfminutos$data >= "2020-12-31") & (mdfminutos$data < Sys.Date()), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "week")

Série ültima Quinzena

ggplot(mdfminutos[(mdfminutos$data >= Sys.Date()-15) & (mdfminutos$data < Sys.Date()) , ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "day")

Série Vagas UTI Adulto

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Vagas UTI Adulto"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Vagas Leito Adulto

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Vagas Leito Adulto"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Vagas UTI Pediátrico

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Vagas UTI Pediátrico"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Número de Respiradores

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Numero de Respiradores"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Suspeitos em UTI

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Suspeitos em UTI"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Confirmados em UTI

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Confirmados em UTI"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Suspeitos Pediátricos

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Suspeitos Pediátricos"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Confirmados Pediátricos em UTI

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Confirmados Pediátricos em UTI"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos em Respitador

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos em Respitador"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série Casos Adultos em UT

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Casos Adultos em UTI"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Série de Óbtos

ggplot(mdfminutos[(mdfminutos$data < Sys.Date()) & (mdfminutos$Variável == "Óbitos"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

Últimos 90 Dias

ggplot(mdfminutos[(mdfminutos$data > Sys.Date()-90) & (mdfminutos$data < Sys.Date())  & (mdfminutos$Variável == "Óbitos"), ], aes(x=data, y=value, colour=Variável, group=Variável)) + 
  geom_line(size=1, ) + 
  xlab("Período") +
  ylab("Frequência") +
  theme(axis.text.x=element_text(angle=45, hjust=1)) +
  ggtitle(paste("Gráfico: ", "Comparativo Diário de Indicadores COVID-19 em Porto Alegre")) +
  labs(linetype='custom title') + 
  scale_x_date(date_labels = "%e / %b", breaks = "month")

R version 4.0.3 (2020-10-10)

Platform: x86_64-apple-darwin17.0 (64-bit)

locale: en_US.UTF-8||en_US.UTF-8||en_US.UTF-8||C||en_US.UTF-8||en_US.UTF-8

attached base packages:

  • stats
  • graphics
  • grDevices
  • utils
  • datasets
  • methods
  • base

other attached packages:

  • pander(v.0.6.3)
  • DT(v.0.17)
  • stringr(v.1.4.0)
  • ggplot2(v.3.3.3)
  • reshape(v.0.8.8)
  • dplyr(v.1.0.5)

loaded via a namespace (and not attached):

  • Rcpp(v.1.0.6)
  • pillar(v.1.6.0)
  • compiler(v.4.0.3)
  • plyr(v.1.8.6)
  • tools(v.4.0.3)
  • digest(v.0.6.27)
  • jsonlite(v.1.7.2)
  • evaluate(v.0.14)
  • lifecycle(v.1.0.0)
  • tibble(v.3.1.1)
  • gtable(v.0.3.0)
  • pkgconfig(v.2.0.3)
  • rlang(v.0.4.11)
  • DBI(v.1.1.1)
  • crosstalk(v.1.1.1)
  • yaml(v.2.2.1)
  • xfun(v.0.22)
  • withr(v.2.4.2)
  • knitr(v.1.30)
  • htmlwidgets(v.1.5.3)
  • generics(v.0.1.0)
  • vctrs(v.0.3.8)
  • grid(v.4.0.3)
  • tidyselect(v.1.1.0)
  • glue(v.1.4.2)
  • R6(v.2.5.0)
  • fansi(v.0.4.2)
  • rmarkdown(v.2.7)
  • farver(v.2.1.0)
  • purrr(v.0.3.4)
  • magrittr(v.2.0.1)
  • scales(v.1.1.1)
  • ellipsis(v.0.3.2)
  • htmltools(v.0.5.1.1)
  • assertthat(v.0.2.1)
  • colorspace(v.2.0-1)
  • labeling(v.0.4.2)
  • utf8(v.1.2.1)
  • stringi(v.1.5.3)
  • munsell(v.0.5.0)
  • crayon(v.1.4.1)