4.5 Exemplo: decisões das câmaras

Suponha que temos o seguinte vetor de textos de decisões:

d_decisoes <- readRDS(glue('{path}/d_decisoes.rds'))

negaram <- regex('negaram', ignore_case = TRUE)
parcial <- regex('parcial', ignore_case = TRUE)
deram <- regex('deram', ignore_case = TRUE)

tipos_decisao <- function(decisoes) {
  case_when(
    str_detect(decisoes, negaram) ~ 'negado',
    str_detect(decisoes, parcial) ~ 'parcial',
    str_detect(decisoes, deram) ~ 'provido',
    TRUE ~ "outros")
}

tipo_decisao <- tipos_decisao(d_decisoes$decision)
table(tipo_decisao)

#> tipo_decisao
#>  negado  outros parcial provido 
#>    2638     191    1726     321

Exercício

1. melhore essa classificação. Dica: é importante avaliar os casos que as expressões regulares não capturaram, para verficar se deixamos algo de fora.

str_trunc(d_decisoes$decision[tipo_decisao == "outros"], 60) %>% 
  head(10)

#>  [1] "Em sede de juízo de retratação (artigo 1030, inciso II, d..."
#>  [2] "Reconheceram, de ofício, a nulidade da sentença por ausên..."
#>  [3] "de ofício julgaram extinta a punibilidade de Rui Devanir ..."
#>  [4] "Nos termos do artigo 107, inciso I, do Código Penal, decl..."
#>  [5] "MANTIVERAM o regime inicial semiaberto fixado no v. acórd..."
#>  [6] "Julgaram extinta a punibilidade da acusada, pela ocorrênc..."
#>  [7] "De ofício, JULGARAM EXTINTA a pretensão punitiva estatal ..."
#>  [8] "Julgaram extinta a punibilidade, pela prescrição da prete..."
#>  [9] "Declararam EXTINTA A PUNIBILIDADE pela prescrição da pret..."
#> [10] "DECLARARAM EXTINTA A PUNIBILIDADE de GUILHERME MARQUINE D..."

Mas como é que d_decisoes foi obtido de d_cposg? Para saber isso, precisaremos aprimorar nossos conhecimentos obtidos de lubridate e stringr, completando com o melhor toolkit de transformação de dados de todos os tempos: dplyr e seus amigos.