<jupyter_start><jupyter_text>Configuração das bibliotecas do RStudio<jupyter_code>%load_ext rpy2.ipython
%%R
system('sudo apt install libcairo2-dev')
install.packages('hrbrthemes')
library(hrbrthemes)

%%R
install.packages("tidyverse")
install.packages("janitor")
install.packages("gridExtra")
library(gridExtra)
library(janitor)
library(dplyr)
library(tidyverse)
library (janitor)
library(ggplot2)<jupyter_output><empty_output><jupyter_text>Carregamento do Dataset de covid 19 que pode ser baixado atravez do link: https://www.kaggle.com/sudalairajkumar/novel-corona-virus-2019-datasetcovid_19_data.csv<jupyter_code>%%R
covid <- read_csv("/content/drive/MyDrive/Colab Notebooks/DateSet/covid_19_data.csv",
                  col_types = cols(SNo = col_skip(), ObservationDate = col_date(format = "%m/%d/%Y")))
head(covid)
%%R
names(covid)<jupyter_output><empty_output><jupyter_text>Renomeando as colunas<jupyter_code>%%R
covid <- covid %>%
rename(Data_Observação = ObservationDate, 
       Provincia_Estado = `Province/State`,
       País_Região = `Country/Region`,
       Atualização = `Last Update`,
       Confirmação = Confirmed,
       Mortes = Deaths)
%%R
covid<jupyter_output><empty_output><jupyter_text>Filtros para país, estado e mês *Filtro de mortes por covid-19 em Janeiro de 2021*<jupyter_code>%%R
brasil_sao_paulo_janeiro <- filter(covid, País_Região == 'Brazil' & 
                 Provincia_Estado == 'Sao Paulo' &
                 Data_Observação >= '2021-01-01' &
                 Data_Observação <= '2021-01-31'
                 )
brasil_sao_paulo_janeiro<jupyter_output><empty_output><jupyter_text>*Filtro de mortes por covid-19 em Fevereiro de 2021*<jupyter_code>%%R
brasil_sao_paulo_fevereiro <- filter(covid, País_Região == 'Brazil'& 
                 Provincia_Estado == 'Sao Paulo' &
                  Data_Observação >= '2021-02-01' &
                  Data_Observação <= '2021-02-28'
                 )
brasil_sao_paulo_fevereiro<jupyter_output><empty_output><jupyter_text>*Filtro de mortes por covid-19 em Março de 2021*<jupyter_code>%%R
brasil_sao_paulo_marco <- filter(covid, País_Região == 'Brazil'& 
                 Provincia_Estado == 'Sao Paulo' &
                  Data_Observação >= '2021-03-01' &
                  Data_Observação <= '2021-03-31'
                 )
brasil_sao_paulo_marco<jupyter_output><empty_output><jupyter_text>*Filtro de mortes por covid-19 em Abril de 2021*<jupyter_code>%%R
brasil_sao_paulo_abril <- filter(covid, País_Região == 'Brazil'& 
                 Provincia_Estado == 'Sao Paulo' &
                  Data_Observação >= '2021-04-01' &
                  Data_Observação <= '2021-04-30'
                 )
brasil_sao_paulo_abril<jupyter_output><empty_output><jupyter_text>*Filtro de mortes por covid-19 em Maio de 2021*<jupyter_code>%%R
brasil_sao_paulo_maio <- filter(covid, País_Região == 'Brazil'& 
                 Provincia_Estado == 'Sao Paulo' &
                  Data_Observação >= '2021-05-01' &
                  Data_Observação <= '2021-05-31'
                 )
brasil_sao_paulo_maio<jupyter_output><empty_output><jupyter_text>*Filtro de mortes por covid-19 em Junho de 2021* *Filtro de mortes por covid-19 em Julho de 2021* *Filtro de mortes por covid-19 em Agosto de 2021* *Filtro de mortes por covid-19 em Setembro de 2021* *Filtro de mortes por covid-19 em Outubro de 2021* *Filtro de mortes por covid-19 em Novembro de 2021* *Filtro de mortes por covid-19 em Dezembro de 2021* *Filtro de mortes por covid-19 em Janeiro de 2022* *Filtro de mortes por covid-19 em Fevereiro de 2022* Plot das morte por covid<jupyter_code>%%R
jan <- ggplot(brasil_sao_paulo_janeiro, aes(x = Data_Observação, y = Mortes)) + 
geom_line() + geom_point() + ggtitle("Mortes por covid-19 em Janeiro de 2021")

fev <- ggplot(brasil_sao_paulo_fevereiro, aes(x = Data_Observação, y = Mortes)) + 
geom_line() + geom_point() + ggtitle("Mortes por covid-19 em Fevereiro de 2021")

mar <- ggplot(brasil_sao_paulo_marco, aes(x = Data_Observação, y = Mortes)) + 
geom_line() + geom_point() + ggtitle("Mortes por covid-19 em Março de 2021")

abr <- ggplot(brasil_sao_paulo_abril, aes(x = Data_Observação, y = Mortes)) + 
geom_line() + geom_point() + ggtitle("Mortes por covid-19 em Abril de 2021")

mai <- ggplot(brasil_sao_paulo_maio, aes(x = Data_Observação, y = Mortes)) + 
geom_line() + geom_point() + ggtitle("Mortes por covid-19 em Maio de 2021")
%%R
grid.arrange(jan, fev, mar, abr, mai)<jupyter_output><empty_output><jupyter_text>Teste<jupyter_code>%%R
brasil_estados <- filter(covid, País_Região == 'Brazil' &
                         Provincia_Estado != 'NA' &
                         Data_Observação >= '2021-01-01' &
                         Data_Observação <= '2021-05-31'
                 )
brasil_estados
%%R
ggplot(brasil_estados, aes(x= Data_Observação, y = Confirmação ), size = 100) + 
geom_bar(stat="identity", width=.5, fill="tomato3") + 
ggtitle("Mortes por covid-19 de Janeiro a Maio de 2021")

# %%R
# ggplot(brasil_sao_paulo_janeiro, aes(x = Data_Observação, y = Mortes)) + 
# geom_line( color="grey") +
# geom_point(shape=21, color="black", fill="#69b3a2", size=6) +
# theme_ipsum() +
# ggtitle("Mortes por covid-19 em Janeiro de 2021")<jupyter_output><empty_output>
StarcoderdataJupyterStructuredCleanDedup