Redesim

Analisando dados da Rede Nacional para a Simplificação do Registro e da Legalização de Empresas e Negócios.

Introdução

A Rede Nacional para a Simplificação do Registro e da Legalização de Empresas e Negócios - Redesim foi criada pelo Governo Federal por meio da Lei Nº 11.598, de 3 de dezembro de 2007, e tem por premissas básicas (copiado do site do Governo Federal):

• Abreviar e simplificar os procedimentos para abertura de empresas e
• Diminuir o tempo e o custo para o registro e a legalização das empresas, reduzindo a burocracia ao mínimo necessário.

Para nossos fins jurimétricos, a vantagem da Redesim é que com ela temos uma base de dados bastante interessante.

Em 2021, construímos no Laboratório de Jurimetria um robô de captura dos dados da Redesim. O robô pode ser acessado através do pacote {redesim}, que pode ser acessado no GitHub da ABJ.

Para instalar o pacote, basta rodar:

remotes::install_github("abjur/redesim")

Para baixar uma base de dados com o robô, basta utilizar a função redesim_fetch. No código abaixo, baixamos todos os dados de janeiro a abril 2022, de todas as unidades federativas.

ufs <- sort(unique(abjData::muni$uf_sigla))
da <- redesim::redesim_fetch(
  ano = 2022, 
  mes = 1:4,
  uf = ufs
)

No final, temos uma base de dados com as seguintes informações:

dplyr::glimpse(da)

Rows: 217,903
Columns: 42
$ ano_mes_uf                    <chr> "2022-01_AC", "2022-01_AC", "20…
$ serial                        <chr> "AC22011900001", "AC22010400002…
$ dt_inic_viabilidade           <date> 2022-01-18, 2021-12-22, 2021-1…
$ hh_inic_viabilidade           <Period> 9H 23M 42S, 7H 10M 35S, 9H 2…
$ dt_fim_viabilidade_nome       <date> 2022-01-18, 2021-12-22, 2021-1…
$ hh_fim_viabilidade_nome       <Period> 9H 32M 53S, 7H 53M 42S, 9H 4…
$ qtde_hh_viabilidade_nome      <dbl> 0.15, 0.72, 0.34, 14.58, 14.72,…
$ dt_fim_viabilidade_end        <date> 2022-01-18, 2021-12-22, 2021-1…
$ hh_fim_viabilidade_end        <Period> 9H 23M 42S, 9H 6M 24S, 9H 25…
$ qtde_hh_viabilidade_end       <dbl> 0.00, 1.94, 0.00, 17.90, 15.15,…
$ dt_fim_viabilidade_total      <date> 2022-01-18, 2021-12-22, 2021-1…
$ hh_fim_viabilidade_total      <Period> 9H 32M 53S, 9H 6M 24S, 9H 45…
$ qtde_hh_viabilidade_total     <dbl> 0.15, 1.94, 0.34, 17.90, 15.15,…
$ data_transmissao              <date> 2022-01-18, 2021-12-22, 2021-1…
$ hora_transmissao              <chr> "16:37:26", "12:31:43", "13:47:…
$ qtde_hh_transmissao           <dbl> 7.08, 3.41, 4.03, 5.63, 27.10, …
$ data_liberacao_dbe            <date> 2022-01-18, 2021-12-22, 2021-1…
$ hora_liberacao_dbe            <chr> "16:48:00", "12:48:00", "13:55:…
$ qtde_hh_liberacao_dbe         <dbl> 0.19, 0.29, 0.13, 0.07, 0.20, 0…
$ data_recebimento_dbe          <date> 2022-01-19, 2022-01-04, 2022-0…
$ hh_recebimento_dbe            <Period> 11H 45M 43S, 16H 14M 21S, 18…
$ qtde_hh_recebimento_dbe       <dbl> 18.95, 219.43, 388.20, 69.15, 5…
$ ind_rec_dbe                   <chr> "S05", "S05", "S05", "S05", "S0…
$ data_deferimento              <date> 2022-01-19, 2022-01-04, 2022-0…
$ hora_deferimento              <chr> "15:08:08", "16:14:21", "13:58:…
$ qtde_horas_deferimento        <dbl> 3.38, 0.00, 211.85, 25.60, 0.00…
$ ind_lib_dbe                   <chr> "S06", "S06", "S06", "S06", "S0…
$ municipio                     <chr> "RIO BRANCO", "RIO BRANCO", "RI…
$ uf                            <chr> "AC", "AC", "AC", "AC", "AC", "…
$ nat_jur                       <chr> "206", "206", "214", "206", "20…
$ atividade_economica_principal <chr> "4712100", "4744099", "4724500"…
$ tipo_de_unidade               <chr> NA, NA, NA, NA, NA, NA, NA, NA,…
$ forma_atuacao_01              <chr> "S", "S", "S", "S", "S", "S", "…
$ forma_atuacao_02              <chr> "N", "N", "N", "S", "N", "N", "…
$ forma_atuacao_03              <chr> "N", "N", "N", "N", "N", "N", "…
$ forma_atuacao_04              <chr> "N", "N", "N", "N", "N", "N", "…
$ forma_atuacao_05              <chr> "N", "N", "N", "N", "N", "N", "…
$ forma_atuacao_06              <chr> "N", "N", "N", "N", "N", "N", "…
$ forma_atuacao_07              <chr> "N", "N", "N", "N", "N", "N", "…
$ forma_atuacao_08              <chr> "N", "N", "N", "N", "N", "N", "…
$ tipo_orgao_registro           <chr> "Junta Comercial", "Junta Comer…
$ cnae                          <list> [<tbl_df[99 x 2]>], [<tbl_df[9…

Atividades empresariais mais comuns

Meu interesse principal para demonstrar o poder dessa base é no Código Nacional de Atividades Empresariais (CNAE).

Em 2022, as atividades empresariais mais comuns são dadas pela tabela abaixo:

Regiões com maior atividade empresarial

Abaixo, também fiz um mapinha mostrando a atividade empresarial. O tamanho do círculo é proporcional à taxa de empresas por 100 mil habitantes. Considerei apenas municípios com mais de 100 mil habitantes no ano de 2010.

Outro mapa legal que daria para fazer é mostrando as silhuetas dos municípios. Agora a taxa de empresas por 100 mil habitantes está mapeada nas cores. Os municípios marcados são os que apresentam maiores taxas. A atividade apresentação nesses lugares está quente!

Muito legal né? Que análises você faria com essa base de dados?