Skip to main content
adicionou 14 caracteres ao conteúdo
Fonte Link
Alexandre Sanches
  • 1,2mil
  • 11
  • 27
library(tidyverse)
library(httr)
library(openxlsx)
library(lubridate)
library(zoo)

url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
                 httr::add_headers("X-Parse-Application-Id" =
                                       "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
    httr::content() %>%
    '[['("results") %>%
    '[['(1) %>%
    '[['("arquivo") %>%
    '[['("url")

({dados <- read.xlsx(url) %>%
    filter(is.na(municipio), is.na(codmun))

dados$data <- as_date(dados$data)

for(i in 9:14) {
    dados[,i] <- as.numeric(dados[,i])
}

rm(url, i)

dados <- dados %>%
    mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1),
           obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1),
           mortalidade = obitosAcumulado / casosAcumulado,
           casosNovos = ifelse(casosNovos < 0, NA, casosNovos),
           obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))})

dados_mm7d <- dados %>%
  mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"),
         mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos),
         mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>%
  filter(data >= "2020-04-07", !is.na(estado))

dados %>%
  filter(data >= "2020-04-01", !is.na(estado)) %>%
  ggplot() +
  geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) +
  geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) +
  scale_y_continuous(trans = 'log2', labels = scales::comma) +
  labs(x = "", y = "") +
  coord_cartesian(ylim = c(2, 6144)) +
  scale_x_date(date_labels = "%b %d", date_breaks = "2 week") +
  theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) +
  facet_wrap(~estado, nrow = 3)
library(tidyverse)
library(httr)
library(openxlsx)
library(lubridate)

url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
                 httr::add_headers("X-Parse-Application-Id" =
                                       "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
    httr::content() %>%
    '[['("results") %>%
    '[['(1) %>%
    '[['("arquivo") %>%
    '[['("url")

({dados <- read.xlsx(url) %>%
    filter(is.na(municipio), is.na(codmun))

dados$data <- as_date(dados$data)

for(i in 9:14) {
    dados[,i] <- as.numeric(dados[,i])
}

rm(url, i)

dados <- dados %>%
    mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1),
           obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1),
           mortalidade = obitosAcumulado / casosAcumulado,
           casosNovos = ifelse(casosNovos < 0, NA, casosNovos),
           obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))})

dados_mm7d <- dados %>%
  mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"),
         mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos),
         mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>%
  filter(data >= "2020-04-07", !is.na(estado))

dados %>%
  filter(data >= "2020-04-01", !is.na(estado)) %>%
  ggplot() +
  geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) +
  geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) +
  scale_y_continuous(trans = 'log2', labels = scales::comma) +
  labs(x = "", y = "") +
  coord_cartesian(ylim = c(2, 6144)) +
  scale_x_date(date_labels = "%b %d", date_breaks = "2 week") +
  theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) +
  facet_wrap(~estado, nrow = 3)
library(tidyverse)
library(httr)
library(openxlsx)
library(lubridate)
library(zoo)

url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
                 httr::add_headers("X-Parse-Application-Id" =
                                       "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
    httr::content() %>%
    '[['("results") %>%
    '[['(1) %>%
    '[['("arquivo") %>%
    '[['("url")

({dados <- read.xlsx(url) %>%
    filter(is.na(municipio), is.na(codmun))

dados$data <- as_date(dados$data)

for(i in 9:14) {
    dados[,i] <- as.numeric(dados[,i])
}

rm(url, i)

dados <- dados %>%
    mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1),
           obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1),
           mortalidade = obitosAcumulado / casosAcumulado,
           casosNovos = ifelse(casosNovos < 0, NA, casosNovos),
           obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))})

dados_mm7d <- dados %>%
  mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"),
         mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos),
         mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>%
  filter(data >= "2020-04-07", !is.na(estado))

dados %>%
  filter(data >= "2020-04-01", !is.na(estado)) %>%
  ggplot() +
  geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) +
  geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) +
  scale_y_continuous(trans = 'log2', labels = scales::comma) +
  labs(x = "", y = "") +
  coord_cartesian(ylim = c(2, 6144)) +
  scale_x_date(date_labels = "%b %d", date_breaks = "2 week") +
  theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) +
  facet_wrap(~estado, nrow = 3)
library(tidyverse)
library(httr)
library(openxlsx)
library(lubridate)

url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
                 httr::add_headers("X-Parse-Application-Id" =
                                       "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
    httr::content() %>%
    '[['("results") %>%
    '[['(1) %>%
    '[['("arquivo") %>%
    '[['("url")

({dados <- read.xlsx(url) %>%
    filter(is.na(municipio), is.na(codmun))

dados$data <- as_date(dados$data)

for(i in 9:14) {
    dados[,i] <- as.numeric(dados[,i])
}

rm(url, i)

dados <- dados %>%
    mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1),
           obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1),
           mortalidade = obitosAcumulado / casosAcumulado,
           casosNovos = ifelse(casosNovos < 0, NA, casosNovos),
           obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))})

dados_mm7d <- dados %>%
  mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"),
         mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos),
         mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>%
  filter(data >= "2020-04-07", !is.na(estado))

dados %>%
  filter(data >= "2020-04-01", !is.na(estado)) %>%
  ggplot() +
  geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) +
  geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) +
  scale_y_continuous(trans = 'log2', labels = scales::comma) +
  labs(x = "", y = "") +
  coord_cartesian(ylim = c(2, 6144)) +
  scale_x_date(date_labels = "%b %d", date_breaks = "2 week") +
  theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) +
  facet_wrap(~estado, nrow = 3)
library(tidyverse)
library(httr)
library(openxlsx)

url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
                 httr::add_headers("X-Parse-Application-Id" =
                                       "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
    httr::content() %>%
    '[['("results") %>%
    '[['(1) %>%
    '[['("arquivo") %>%
    '[['("url")

({dados <- read.xlsx(url) %>%
    filter(is.na(municipio), is.na(codmun))

dados$data <- as_date(dados$data)

for(i in 9:14) {
    dados[,i] <- as.numeric(dados[,i])
}

rm(url, i)

dados <- dados %>%
    mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1),
           obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1),
           mortalidade = obitosAcumulado / casosAcumulado,
           casosNovos = ifelse(casosNovos < 0, NA, casosNovos),
           obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))})

dados_mm7d <- dados %>%
  mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"),
         mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos),
         mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>%
  filter(data >= "2020-04-07", !is.na(estado))

dados %>%
  filter(data >= "2020-04-01", !is.na(estado)) %>%
  ggplot() +
  geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) +
  geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) +
  scale_y_continuous(trans = 'log2', labels = scales::comma) +
  labs(x = "", y = "") +
  coord_cartesian(ylim = c(2, 6144)) +
  scale_x_date(date_labels = "%b %d", date_breaks = "2 week") +
  theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) +
  facet_wrap(~estado, nrow = 3)
library(tidyverse)
library(httr)
library(openxlsx)
library(lubridate)

url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
                 httr::add_headers("X-Parse-Application-Id" =
                                       "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
    httr::content() %>%
    '[['("results") %>%
    '[['(1) %>%
    '[['("arquivo") %>%
    '[['("url")

({dados <- read.xlsx(url) %>%
    filter(is.na(municipio), is.na(codmun))

dados$data <- as_date(dados$data)

for(i in 9:14) {
    dados[,i] <- as.numeric(dados[,i])
}

rm(url, i)

dados <- dados %>%
    mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1),
           obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1),
           mortalidade = obitosAcumulado / casosAcumulado,
           casosNovos = ifelse(casosNovos < 0, NA, casosNovos),
           obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))})

dados_mm7d <- dados %>%
  mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"),
         mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos),
         mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>%
  filter(data >= "2020-04-07", !is.na(estado))

dados %>%
  filter(data >= "2020-04-01", !is.na(estado)) %>%
  ggplot() +
  geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) +
  geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) +
  scale_y_continuous(trans = 'log2', labels = scales::comma) +
  labs(x = "", y = "") +
  coord_cartesian(ylim = c(2, 6144)) +
  scale_x_date(date_labels = "%b %d", date_breaks = "2 week") +
  theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) +
  facet_wrap(~estado, nrow = 3)
adicionou 19 caracteres ao conteúdo
Fonte Link
Alexandre Sanches
  • 1,2mil
  • 11
  • 27
library(tidyverse)
library(httr)
library(openxlsx)

url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
                 httr::add_headers("X-Parse-Application-Id" =
                                       "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
    httr::content() %>%
    '[['("results") %>%
    '[['(1) %>%
    '[['("arquivo") %>%
    '[['("url")

({dados <- read.xlsx(url) %>%
    filter(is.na(municipio), is.na(codmun))

dados$data <- as_date(dados$data)

for(i in 9:14) {
    dados[,i] <- as.numeric(dados[,i])
}

rm(url, i)

dados <- dados %>%
    mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1),
           obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1),
           mortalidade = obitosAcumulado / casosAcumulado,
           casosNovos = ifelse(casosNovos < 0, NA, casosNovos),
           obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))})

dados_mm7d <- dados %>%
  mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"),
         mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos),
         mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>%
  filter(data >= "2020-04-07", !is.na(estado))

dados %>%
  filter(data >= "2020-04-01", !is.na(estado)) %>%
  ggplot() +
  geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) +
  geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) +
  scale_y_continuous(trans = 'log2', labels = scales::comma) +
  labs(x = "", y = "") +
  coord_cartesian(ylim = c(2, 6144)) +
  scale_x_date(date_labels = "%b %d", date_breaks = "2 week") +
  theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) +
  facet_wrap(~estado, nrow = 3)
library(tidyverse)
library(httr)

url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
                 httr::add_headers("X-Parse-Application-Id" =
                                       "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
    httr::content() %>%
    '[['("results") %>%
    '[['(1) %>%
    '[['("arquivo") %>%
    '[['("url")

({dados <- read.xlsx(url) %>%
    filter(is.na(municipio), is.na(codmun))

dados$data <- as_date(dados$data)

for(i in 9:14) {
    dados[,i] <- as.numeric(dados[,i])
}

rm(url, i)

dados <- dados %>%
    mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1),
           obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1),
           mortalidade = obitosAcumulado / casosAcumulado,
           casosNovos = ifelse(casosNovos < 0, NA, casosNovos),
           obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))})

dados_mm7d <- dados %>%
  mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"),
         mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos),
         mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>%
  filter(data >= "2020-04-07", !is.na(estado))

dados %>%
  filter(data >= "2020-04-01", !is.na(estado)) %>%
  ggplot() +
  geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) +
  geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) +
  scale_y_continuous(trans = 'log2', labels = scales::comma) +
  labs(x = "", y = "") +
  coord_cartesian(ylim = c(2, 6144)) +
  scale_x_date(date_labels = "%b %d", date_breaks = "2 week") +
  theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) +
  facet_wrap(~estado, nrow = 3)
library(tidyverse)
library(httr)
library(openxlsx)

url <- httr::GET("https://xx9p7hp1p7.execute-api.us-east-1.amazonaws.com/prod/PortalGeral",
                 httr::add_headers("X-Parse-Application-Id" =
                                       "unAFkcaNDeXajurGB7LChj8SgQYS2ptm")) %>%
    httr::content() %>%
    '[['("results") %>%
    '[['(1) %>%
    '[['("arquivo") %>%
    '[['("url")

({dados <- read.xlsx(url) %>%
    filter(is.na(municipio), is.na(codmun))

dados$data <- as_date(dados$data)

for(i in 9:14) {
    dados[,i] <- as.numeric(dados[,i])
}

rm(url, i)

dados <- dados %>%
    mutate(casosNovos = casosAcumulado - lag(casosAcumulado, 1),
           obitosNovos = obitosAcumulado - lag(obitosAcumulado, 1),
           mortalidade = obitosAcumulado / casosAcumulado,
           casosNovos = ifelse(casosNovos < 0, NA, casosNovos),
           obitosNovos = ifelse(obitosNovos < 0, NA, obitosNovos))})

dados_mm7d <- dados %>%
  mutate(mm7dCasos = rollmeanr(casosNovos, 7, c(rep(NA, 6)), allign = "right"),
         mm7dCasos = ifelse(is.na(mm7dCasos), 0, mm7dCasos),
         mm7dCasos = ifelse(is.infinite(mm7dCasos), 0, mm7dCasos)) %>%
  filter(data >= "2020-04-07", !is.na(estado))

dados %>%
  filter(data >= "2020-04-01", !is.na(estado)) %>%
  ggplot() +
  geom_col(aes(x = data, y = casosNovos), na.rm = TRUE, color = "black", fill = "#4682B4", size = 0.1, width = 0.6) +
  geom_line(data = dados_mm7d, aes(x = data, y = mm7dCasos), color = "#FF6347", size = 0.7) +
  scale_y_continuous(trans = 'log2', labels = scales::comma) +
  labs(x = "", y = "") +
  coord_cartesian(ylim = c(2, 6144)) +
  scale_x_date(date_labels = "%b %d", date_breaks = "2 week") +
  theme(text = element_text(size = 10), axis.text.x = element_text(angle = 90, hjust = 1)) +
  theme(panel.background = element_rect(fill = "white", colour = "grey10", linetype = "solid")) +
  facet_wrap(~estado, nrow = 3)
Fonte Link
Alexandre Sanches
  • 1,2mil
  • 11
  • 27
Carregando