Exercícios unyleya dplyr

infanticidio_dplyr.R

# Utilize o mesmo dataframe cjsg obtido na atividade anterior para praticar as atividades abaixo.
# Caso não o tenha mais, colocarei um link para obtê-lo.
# 


## Use a linha de código abaixo se você não tem mais os dados
## obtidos na unidade anterior

cjsg <- jsonlite::fromJSON("https://gist.githubusercontent.com/jjesusfilho/f140fe3808e8d2dc6c920e1629b1ae1b/raw/46163ac97f48b95ffc0afdbc2804f92765ec56a6/infanticidio.json")


### Crie um diretório para salvar os resultados parciais

dir.create("dados_parciais")

### Carregue o tidyverse

library(tidyverse)
### Carregue o writexl
library(writexl)



## Exercício 1: 

### Selecione somente as colunas processo, classe e assunto

df1 <- cjsg |> 
    select(processo, classe, assunto)

### Visualize

View(df1)

### Salve o df1

write_xlsx(df1, "dados_parciais/df1.xlsx")

## Exercício 2

### Filtre somente o assunto "Homicídio Qualificado"

df2 <- cjsg |> 
     filter(assunto == "Homicídio Qualificado")

### Visualize

View(df2)

### Salve o df2

write_xlsx(df2, "dados_parciais/df2.xlsx")


## Exercício 3

#### Gere frequências das classes processuais

df3 <- cjsg |> 
      count(classe, sort = T)


### Visualize

View(df3)

### Salve o df3

write_xlsx(df3,"dados_parciais/df3.xlsx")

## Exercício 4

### Envie os três arquivos salvos para o tutor.