classificador de partes

classificar_partes.txt

partes <- partes %>%
    mutate(pessoa = case_when(
          str_detect(parte, "(?i)(t[ée]rio p[úu]blico|justi[cç]a\\s+p[uú]blica|\\bmp\\b)") ~ "MP",
          str_detect(parte, "(?i)defensoria") ~ "Defensoria",
          str_detect(parte,"(?i)fazenda") ~ "poder_executivo",
          str_detect(parte,"(?i)partido") ~ "partido",
          str_detect(parte,"(?i)(assoc|direitos|defesa|sociedade|federa[cç][ãa]o|estudant|acad.mico|ocupante|funcion[áa]rio|prote[cç]|sindicato|\\bsind\\.?\\b|sint|morador|funda[çc][ãa]o|instituto|movimento|organiza|consumidor|cons\\.|ong|usu[áa]rio|conselho)") ~ "TS",
          str_detect(parte,"(?i)(munic|prefeit|\\estad\\w+)") ~ "poder_executivo",
          str_detect(parte,"(?i)\\bcentro\\b") ~ "centro",
          soma > 3 ~ "PF",
          str_detect(parte,"(?i)(\\bs[./]?a\\.?$|ltda\\.?|\\bME\\.?\\b|\\bMEI\\.?\\b|\\bEPP\\.?\\b|eirel[ei]|\\bs/?c\\b)") ~ "PJ",
          TRUE ~  "D"))

gistfile2.txt

partes <- partes |> 
       mutate(pessoa = case_when(
str_detect(parte, "(?i)(banco|financeira|cr[ée]dito|financ|bank|\\bpag|cred)") ~ "financeira",
str_detect(parte,"(?i)(\\bs[./]?a\\.?$|\\bs\\.\\a\\.|\\bs/a.?\\b|ltda\\.?|\\b[aá]gua\\b|usina|empreend|com[ée]rci|representa|\\bME\\.?\\b|\\bMEI\\.?\\b|\\bEPP\\.?\\b|eirel[ei]|\\bs/?c\\b|companhia|\\bcia\\b)") ~ "PJ",
TRUE ~"PF"))