Varas empresariais do brasil

varas_emp_br.R

library(jurimetria)
library(abjutils)
library(ggplot2)

data(br_uf_map)
data(dados_aj)

d_aj <- dados_aj %>% 
  filter(tipo=='Justiça Estadual e DF') %>%
  mutate(nome_vara2=rm_accent(tolower(nome_vara))) %>%
  filter(str_detect(nome_vara2, 'empr|fal')) %>%
  filter(!nome_vara %in% '2º VARA EMPRESARIAL (-EXTINTA -PORTARIA 647/2010)',
         !nome_vara %in% 'VARA CÍVEL - ANTIGA 7ª VARA DA FAZENDA PÚBLICA, FALÊNCIAS E RECUPERAÇÃO JUDICIAL',
         !nome_vara %in% 'VARA CÍVEL - ANTIGA 6ª VARA DA FAZENDA PÚBLICA, FALÊNCIAS E RECUPERAÇÃO JUDICIAL',
         !nome_vara %in% 'VARA CÍVEL - ANTIGA 5ª VARA DA FAZENDA PÚBLICA, FALÊNCIAS E RECUPERAÇÃO JUDICIAL',
         !nome_vara %in% 'VARA DE REGISTROS PÚBLICOS E CORREGEDORIA DO FORO EXTRAJUDICIAL - ANTIGA 8ª VARA DA FAZENDA PÚBLICA, FALÊNCIAS E RECUPERAÇÃO JUDICIAL') %>%
  select(municipio, uf, nome_vara, lat, long)

estados <- data.frame(est=c('AC','AL','AM','AP','BA','CE','DF','ES','GO',
                            'MA','MG','MS','MT','PA','PB','PE','PI','PR',
                            'RJ','RN','RO','RR','RS','SC','SE','SP','TO'),
                      val=1,
                      stringsAsFactors=FALSE)
map_df <- br_uf_map %.%
  mutate(est = str_sub(as.character(br_uf_map$group), 1L, 2L)) %.%
  inner_join(estados, by='est') 
ggplot(map_df, aes(x=long, y=lat)) +
  geom_map(map=map_df, aes(map_id=id), colour='black', fill='gray', alpha=.1) +
  geom_point(aes(x=long, y=lat), data=d_aj, colour='blue', size=5, alpha=.2) +
  geom_point(aes(x=long, y=lat), data=d_aj, colour='yellow', size=2, alpha=.9) +
  coord_equal() +
  labs(x='', y='') +
  theme_bw() +
  theme(axis.text=element_blank(),
        axis.ticks=element_blank())