Skip to main content
removeu 12 caracteres do conteúdo
Fonte Link
A Neto
  • 328
  • 2
  • 13

Eu testei seu código aqui e o erro que apareceu foi

Erro: Mapping should be created with aes() or aes_()`.

Para corrigir isso, você precisa declarar 'data'

geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))

OBS. Seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA

Removed 1 row(s) containing missing values (geom_path).

Você terá que tratar esse NA para ele juntar as linhas

inserir a descrição da imagem aquiinserir a descrição da imagem aqui

OBS.: Refiz o código criando data frames para organizar melhor, corrigir falhas na plotagem e conseguir plotar legendas, etc.

library(tidyverse)
library(openxlsx)
library(tidycovid19)

previsoes <- read.xlsx("https://raw.githubusercontent.com/gabrielrvsc/COVID19_outputs/master/forecasts_20200513.xlsx")
previsoes$Data <- convertToDate(previsoes$Data)

updates <- download_merged_data(cached = TRUE)

df1 <- updates %>%
   filter(iso3c %in% "BRA", date > "2020-03-20") %>%
   select(date, confirmed) %>% 
   rename(Data = date, Casos = confirmed) %>% 
   mutate(Tipo = "Confirmados")
   
df2 <- previsoes %>% 
   select(Data, Previsao_Casos) %>% 
   rename(Casos = Previsao_Casos) %>% 
   mutate(Tipo = "Previsto")

df3 <- rbind(df1, df2)

stroptions(df3scipen = 999)

grafico <- df3 %>%  
   ggplot() +
   geom_line(aes(x = Data, y = Casos, linetype = Tipo)) +
   geom_vline(xintercept = as.Date("2020-05-14"), lty = 2) +
   scale_x_date(date_breaks = "7 days", date_labels = "%d/%b") +
   geom_ribbon(data = previsoes, aes(x = Data, ymin = Previsao_Casos-Previsao_Casos_Variacao, ymax = Previsao_Casos+Previsao_Casos_Variacao), alpha = 0.3)

inserir a descrição da imagem aquiinserir a descrição da imagem aqui

Eu testei seu código aqui e o erro que apareceu foi

Erro: Mapping should be created with aes() or aes_()`.

Para corrigir isso, você precisa declarar 'data'

geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))

OBS. Seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA

Removed 1 row(s) containing missing values (geom_path).

Você terá que tratar esse NA para ele juntar as linhas

inserir a descrição da imagem aqui

OBS.: Refiz o código criando data frames para organizar melhor, corrigir falhas na plotagem e conseguir plotar legendas, etc.

library(tidyverse)
library(openxlsx)
library(tidycovid19)

previsoes <- read.xlsx("https://raw.githubusercontent.com/gabrielrvsc/COVID19_outputs/master/forecasts_20200513.xlsx")
previsoes$Data <- convertToDate(previsoes$Data)

updates <- download_merged_data(cached = TRUE)

df1 <- updates %>%
   filter(iso3c %in% "BRA", date > "2020-03-20") %>%
   select(date, confirmed) %>% 
   rename(Data = date, Casos = confirmed) %>% 
   mutate(Tipo = "Confirmados")
   
df2 <- previsoes %>% 
   select(Data, Previsao_Casos) %>% 
   rename(Casos = Previsao_Casos) %>% 
   mutate(Tipo = "Previsto")

df3 <- rbind(df1, df2)

str(df3)

grafico <- df3 %>%  
   ggplot() +
   geom_line(aes(x = Data, y = Casos, linetype = Tipo)) +
   geom_vline(xintercept = as.Date("2020-05-14"), lty = 2) +
   scale_x_date(date_breaks = "7 days", date_labels = "%d/%b") +
   geom_ribbon(data = previsoes, aes(x = Data, ymin = Previsao_Casos-Previsao_Casos_Variacao, ymax = Previsao_Casos+Previsao_Casos_Variacao), alpha = 0.3)

inserir a descrição da imagem aqui

Eu testei seu código aqui e o erro que apareceu foi

Erro: Mapping should be created with aes() or aes_()`.

Para corrigir isso, você precisa declarar 'data'

geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))

OBS. Seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA

Removed 1 row(s) containing missing values (geom_path).

Você terá que tratar esse NA para ele juntar as linhas

inserir a descrição da imagem aqui

OBS.: Refiz o código criando data frames para organizar melhor, corrigir falhas na plotagem e conseguir plotar legendas, etc.

library(tidyverse)
library(openxlsx)
library(tidycovid19)

previsoes <- read.xlsx("https://raw.githubusercontent.com/gabrielrvsc/COVID19_outputs/master/forecasts_20200513.xlsx")
previsoes$Data <- convertToDate(previsoes$Data)

updates <- download_merged_data(cached = TRUE)

df1 <- updates %>%
   filter(iso3c %in% "BRA", date > "2020-03-20") %>%
   select(date, confirmed) %>% 
   rename(Data = date, Casos = confirmed) %>% 
   mutate(Tipo = "Confirmados")
   
df2 <- previsoes %>% 
   select(Data, Previsao_Casos) %>% 
   rename(Casos = Previsao_Casos) %>% 
   mutate(Tipo = "Previsto")

df3 <- rbind(df1, df2)

options(scipen = 999)

grafico <- df3 %>%  
   ggplot() +
   geom_line(aes(x = Data, y = Casos, linetype = Tipo)) +
   geom_vline(xintercept = as.Date("2020-05-14"), lty = 2) +
   scale_x_date(date_breaks = "7 days", date_labels = "%d/%b") +
   geom_ribbon(data = previsoes, aes(x = Data, ymin = Previsao_Casos-Previsao_Casos_Variacao, ymax = Previsao_Casos+Previsao_Casos_Variacao), alpha = 0.3)

inserir a descrição da imagem aqui

adicionou 1266 caracteres ao conteúdo
Fonte Link
A Neto
  • 328
  • 2
  • 13

Eu testei seu código aqui e o erro que apareceu foi

Erro: Mapping should be created with aes() or aes_()`.

Para corrigir isso, você precisa declarar 'data'

geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))

OBS. Seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA

Removed 1 row(s) containing missing values (geom_path).

Você terá que tratar esse NA para ele juntar as linhas

inserir a descrição da imagem aqui

OBS.: Refiz o código criando data frames para organizar melhor, corrigir falhas na plotagem e conseguir plotar legendas, etc.

library(tidyverse)
library(openxlsx)
library(tidycovid19)

previsoes <- read.xlsx("https://raw.githubusercontent.com/gabrielrvsc/COVID19_outputs/master/forecasts_20200513.xlsx")
previsoes$Data <- convertToDate(previsoes$Data)

updates <- download_merged_data(cached = TRUE)

df1 <- updates %>%
   filter(iso3c %in% "BRA", date > "2020-03-20") %>%
   select(date, confirmed) %>% 
   rename(Data = date, Casos = confirmed) %>% 
   mutate(Tipo = "Confirmados")
   
df2 <- previsoes %>% 
   select(Data, Previsao_Casos) %>% 
   rename(Casos = Previsao_Casos) %>% 
   mutate(Tipo = "Previsto")

df3 <- rbind(df1, df2)

str(df3)

grafico <- df3 %>%  
   ggplot() +
   geom_line(aes(x = Data, y = Casos, linetype = Tipo)) +
   geom_vline(xintercept = as.Date("2020-05-14"), lty = 2) +
   scale_x_date(date_breaks = "7 days", date_labels = "%d/%b") +
   geom_ribbon(data = previsoes, aes(x = Data, ymin = Previsao_Casos-Previsao_Casos_Variacao, ymax = Previsao_Casos+Previsao_Casos_Variacao), alpha = 0.3)

inserir a descrição da imagem aqui

Eu testei seu código aqui e o erro que apareceu foi

Erro: Mapping should be created with aes() or aes_()`.

Para corrigir isso, você precisa declarar 'data'

geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))

OBS. Seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA

Removed 1 row(s) containing missing values (geom_path).

Você terá que tratar esse NA para ele juntar as linhas

inserir a descrição da imagem aqui

Eu testei seu código aqui e o erro que apareceu foi

Erro: Mapping should be created with aes() or aes_()`.

Para corrigir isso, você precisa declarar 'data'

geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))

OBS. Seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA

Removed 1 row(s) containing missing values (geom_path).

Você terá que tratar esse NA para ele juntar as linhas

inserir a descrição da imagem aqui

OBS.: Refiz o código criando data frames para organizar melhor, corrigir falhas na plotagem e conseguir plotar legendas, etc.

library(tidyverse)
library(openxlsx)
library(tidycovid19)

previsoes <- read.xlsx("https://raw.githubusercontent.com/gabrielrvsc/COVID19_outputs/master/forecasts_20200513.xlsx")
previsoes$Data <- convertToDate(previsoes$Data)

updates <- download_merged_data(cached = TRUE)

df1 <- updates %>%
   filter(iso3c %in% "BRA", date > "2020-03-20") %>%
   select(date, confirmed) %>% 
   rename(Data = date, Casos = confirmed) %>% 
   mutate(Tipo = "Confirmados")
   
df2 <- previsoes %>% 
   select(Data, Previsao_Casos) %>% 
   rename(Casos = Previsao_Casos) %>% 
   mutate(Tipo = "Previsto")

df3 <- rbind(df1, df2)

str(df3)

grafico <- df3 %>%  
   ggplot() +
   geom_line(aes(x = Data, y = Casos, linetype = Tipo)) +
   geom_vline(xintercept = as.Date("2020-05-14"), lty = 2) +
   scale_x_date(date_breaks = "7 days", date_labels = "%d/%b") +
   geom_ribbon(data = previsoes, aes(x = Data, ymin = Previsao_Casos-Previsao_Casos_Variacao, ymax = Previsao_Casos+Previsao_Casos_Variacao), alpha = 0.3)

inserir a descrição da imagem aqui

removeu 2 caracteres do conteúdo
Fonte Link
A Neto
  • 328
  • 2
  • 13

Eu testei seu código aqui e o erro que apareceu foi

Erro: Mapping should be created with aes() or aes_()`.

Para corrigir isso, você precisa declarar 'data'

geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))

Contudo, seuOBS. Seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA

Removed 1 row(s) containing missing values (geom_path).

Você terá que tratar esse NA para ele juntar as linhas

inserir a descrição da imagem aqui

Eu testei seu código aqui e o erro que apareceu foi

Erro: Mapping should be created with aes() or aes_()`.

Para corrigir isso, você precisa declarar 'data'

geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))

Contudo, seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA

Removed 1 row(s) containing missing values (geom_path).

Você terá que tratar esse NA para ele juntar as linhas

inserir a descrição da imagem aqui

Eu testei seu código aqui e o erro que apareceu foi

Erro: Mapping should be created with aes() or aes_()`.

Para corrigir isso, você precisa declarar 'data'

geom_line(data = previsoes, aes(x = Data, y = Previsao_Casos))

OBS. Seu gráfico não ficará como o que você pede pois os dados em 'previsões' só tem maio, a partir de 14/05. Fica uma falha na linha pois falta dia 14/05 no 'updates'. Ele pula por causa do NA

Removed 1 row(s) containing missing values (geom_path).

Você terá que tratar esse NA para ele juntar as linhas

inserir a descrição da imagem aqui

Fonte Link
A Neto
  • 328
  • 2
  • 13
Carregando