starlink - apreensões - ibama

data.R

library(tidyverse)
library(readr)

#### OS DADOS PODEM SER ENCONTRADOS NO LINK
#### https://dadosabertos.ibama.gov.br/dataset/fiscalizacao-termo-de-apreensao

d <- read_delim("termo_apreensao.csv", delim = ";")
c <- read_delim("bem_apreendido.csv", delim = ";")

d <- d %>% select(SEQ_TAD, DAT_TAD, DES_TAD, NOM_MUNICIPIO, SIG_UF, NUM_LONGITUDE_TAD, NUM_LATITUDE_TAD)

c <- c %>% select(SEQ_TAD, QTD_BEM_APREENDIDO, DES_TIPO_BEM, DES_TIPO_INFRACAO, DES_BEM_APREENDIDO)

df <- left_join(c, d, by = "SEQ_TAD")

starlink <- df %>% filter(str_detect(DES_BEM_APREENDIDO, regex("starlink", ignore_case = TRUE)))

starlink$data <- format(as.Date(starlink$DAT_TAD), "%m-%Y")
starlink$apreensoes_qtd <- as.numeric(starlink$QTD_BEM_APREENDIDO)

clipr::write_clip(starlink %>% group_by(data) %>% summarise(total = sum(apreensoes_qtd)))