---
title: Notes - Relatório
---

<style>

html, body, .ui-content {
background-color: #cec2e5;
color: #000;
}

.markdown-body h1,
.markdown-body h2,
.markdown-body h3,
.markdown-body h4,
.markdown-body h5,
.markdown-body h6 {
color: #000;
}

.markdown-body h1,
.markdown-body h2 {
border-bottom-color: #000;
}

.markdown-body h1 .octicon-link,
.markdown-body h2 .octicon-link,
.markdown-body h3 .octicon-link,
.markdown-body h4 .octicon-link,
.markdown-body h5 .octicon-link,
.markdown-body h6 .octicon-link {
color: #000;
}

.markdown-body img {
background-color: transparent;
}

.ui-toc-dropdown .nav>.active:focus>a, .ui-toc-dropdown .nav>.active:hover>a, .ui-toc-dropdown .nav>.active>a {
color: white;
border-left: 2px solid white;
}

.expand-toggle:hover,
.expand-toggle:focus,
.back-to-top:hover,
.back-to-top:focus,
.go-to-bottom:hover,
.go-to-bottom:focus {
color: black;
}

.ui-toc-dropdown {
background-color: #000;
}

.ui-toc-label.btn {
background-color: #000;
color: black;
}

</style>

###### tags: `Relatório automatizado`

# Produções:

:::info
- **Relatório:**
:::

| Descrição | Link |
| -------- | -------- |
| **Manual do Relatório** | https://hackmd.io/pD7KLNAHS02N9A48SYGCpw?view |
| **Texto comentando sobre o projeto do relatório** | https://hackmd.io/EP-NqRkKSeSvSN8DA5nc1Q?view |
| **Batimento do relatório final** | https://hackmd.io/YV2tlgUFS7GXfaYbUDzxVw?view |

:::info
- **Painéis:**
:::

| Descrição | Link | Atualização |
| -------- | -------- | -------- |
| **Anotações - Rev. 1** | https://hackmd.io/N1j59UOQR8qEOiYvBOki0w | 04/02/2022 |

<h1>
Anotações - Relatório
</h1>

### Caminhos dos dados para o relatório de atividades
:::spoiler
> **Caminho para arquivos do relatório de atividades:**
>>\\vitoria\Repositorio\producao\sitioStf\cms\publicacaoBOInternet\anexo\link_download\dados_RAtividades_2021\all

> **Caminho com os links para os arquivos**
>> Segue o link dos arquivos, na primeira aba de cada arquivo tem a data de atualização do relatório. Os relatórios atualizam todos os dias as 14hrs. sugiro fazer o download dos arquivos depois das 15hrs.
>> **Microdados**
http://www.stf.jus.br/arquivo/cms/publicacaoBOInternet/anexo/link_download/dados_RAtividades_2021/MICRODADOS_2021-Diario.xlsx
>> **Quadros**
http://www.stf.jus.br/arquivo/cms/publicacaoBOInternet/anexo/link_download/dados_RAtividades_2021/Relatorio_Atividades_2021-Diario.xlsx
>> **Repercussão geral**
http://www.stf.jus.br/arquivo/cms/publicacaoBOInternet/anexo/link_download/dados_RAtividades_2021/Repercussao_Geral%20_Relatorio_Gestao_2021-Diario.xlsx
>> **Taxa Provimento**
http://www.stf.jus.br/arquivo/cms/publicacaoBOInternet/anexo/link_download/dados_RAtividades_2021/Taxa_provimento_recursal_2021-Diario.xlsx
:::

---

* Divergência dos dados históricos dos `RECEBIDOS` 2016 e 2017: `reg_presid_orig` e `reg_presid_total`.
> Inserir informação no relatório sobre essa inconsistência.
<br>

* Tabela de `DECISÕES` dos microdados 2021 > coluna `Tipo decisão`, o processo que está como `NÃO INFORMADO` - RHC-207485 (data de andamento em: 15/10/2021) foi categorizado como `MONOCRÁTICA` .

> Solicitar correção da TI.

* Taxa de provimento - Retirada do site:
https://transparencia.stf.jus.br/single/?appid=ca45dc5b-0684-4d3d-9f49-7ce39dfa6123&sheet=117b765f-1773-4276-866c-1faf26145fe1

* Tabela `recebidos_classe` (arquivo relatorio_historico) foi modificada para ajuste de padronização:
> Ap e Ep -> AP e EP
> STA foi acrescentado para padronizar com a tabela de 2021

* Tabela de `DECISÕES` fez-se uma modificação no item `DECISÃO`: onde tinha `Decisão` virou `Decisão Interlocutória`
> Incluir uma nota explicativa sobre

* Na tabela sobre `Acervo por ramo do direito` colocar nota de rodapé referente aos valores faltantes.

:::success
Sugestão do Fernando (24.082) corrigida:
:::

acervo2021_sep |>
  filter(is.na(ramo_direito_novo)) |>
  nrow()
# NA = 12 -> Virou nota de rodapé

:::danger

### Lembrar de verificar na revisão do código no próximo relatório:
> Novas anotações: 14/02/2022
:::

## <mark>- Página 39 :-1: <mark></mark>

:::danger

Divergência na informação do próprio relatório jurisdicional:



- Faltam 86, possível falta do Plenário virtual - RG
:::

:::success
:a: Informação errada.
:::

## <mark>- Página 41 :-1: <mark></mark>

:::danger

Divergência na informação do próprio relatório jurisdicional somente no ano de `2017`


O relatório publicado está OK:



:::

:::danger
Outras observações disponíveis em: https://hackmd.io/32snUIBTSv2g0jxeaKiWyg
:::

<br>

<h2>
Checklist<br>
Atualizado em: 15/12/2021
</h2>

<h3>
Demandas pendentes do relatório
</h3>

- [x] ~~**Texto**: [<b><span style="color: red;">AJUDA!</span></b>] no trecho "Mais de 70% dos processos do acervo têm menos de 1 ano de autuação. Aproximadamente 89% do acervo é composto por feitos autuados nos últimos 5 anos.";~~
- > Em aberto!

- [x] ~~**Texto**: [<b><span style="color: red;">AJUDA!</span></b>] Pendente automatizar nomes dos ramos;~~

- [X] ~~**Texto**: Verificar qual figura vai ficar no item "1.2 Recebimento"~~

- [x] ~~**Gráfico**: [**CONCLUÍDO GRÁFICO**] Gráfico 12 - Taxa de provimento~~
- > **~~Ariane tentar em 40 min, senão colocar a tabel~~a**

- [x] ~~**Texto**: [<b><span style="color: red;">AJUDA!</span></b>] no trecho: "Houve aumento de mais de 50% de processos de Controle Concentrado, com destaque para as classes ADI (+46%) e ADPF (+64%)...."~~;
- > **[ok] ~~Retirar tudo!!**~~

- [x] ~~**Gráfico**: [<b><span style="color: red;">EULER VERIFICAR!</span></b>] Gráfico 15 - Quantidade de decisões e a quantidade de decisões finais;~~
- > ~~**Fiz uma outra alternativa pra esse gráfico**~~

- [x] ~~**Texto**: [**CONCLUÍDO**] "Houve um aumento de 2% nas decisões colegiadas, reforçando o princípio da Colegialidade."~~
- ~~Se diminui -> houve uma diminuição de X% nas decisões colegidas.~~
- ~~Se aumenta -> houve um aumento de Y% nas decisões colegiadas, reforçando o princípio da Colegialidade.~~

- [x] ~~**Tabela**: [<b><span style="color: red;">PENDENTE!</span></b>] Tabela 8 - Decisões em Sessões Virtuais (2021) + número de acórdãos:~~

- V~~amos deixar esse por último que vou pensar numa solução~~

- [x] ~~**QRCode**: [**DELETADO**]~~
- > **~~Pode deletar!~~**

- [x] ~~**Gráfico**: [AJUDA] No gráfico "quantidade de processos baixados, recebidos e o acervo final por ano": problema nos rótulos;~~
- > ~~**Deixar da forma que está!**~~

## Daqui pra baixo é comigo ainda (Euler)

- [x] ~~**Texto**: [OK] 2 Relatório da Repercussão Geral~~

- [x] ~~**Gráfico**: [OK] Gráfico 20 - Evolução da quantidade de temas apreciados no Plenário Virtual por ano + texto de análise do gráfico;~~

- [X] ~~**Gráfico**: [OK] Gráfico 21 - O total de temas julgados por ano;~~

- [X] ~~**Tabela**: [PENDENTE] Tabela 11 (final) - Item 2.2 Teses firmadas e liberação de processos em todo o País~~

<br>

<h1>
Dicas
</h1>

<h2>
Trabalho colaborativo no GitHub
</h2>

> Slide Github
https://beatrizmilz.github.io/slidesR/git_rstudio/09-2021-gyn.html#1
<br>

> Código do relatório no Git:
> https://github.com/a-hayana/Relatorio_R

Euler criou o projeto todo no R.
Passo a passo:

1. Configurei o git no R
> usethis::use_git_config(
> '# Seu nome
> user.name = "Euler Alencar",
> '# Seu email
> user.email = "[e-mail]")

2. Dê permissão do git pelo R e crie um token no git
> usethis::create_github_token()

3. Copie o token para o environ do R
> usethis::edit_r_environ()

4. Verifique a conexão
> usethis::git_sitrep()

5. . Use o git
> usethis::use_git()

6. Crie o seu projeto no github
> usethis::create_project(path = "github_projects/teste_estat/")

Referência: https://beatrizmilz.github.io/slidesR/git_rstudio/09-2021-gyn.html#38

Como eu fiz no `R`:[Ariane]

* <b>Fazer o fork pelo R:</b>

Digitar:

`usethis::create_from_github("euleralencar/r_postgres", "local no computador", fork = TRUE)`

* <b>Criar um branch (um novo ramo para contribuição)</b>

`usethis::pr_init(branch = "nome_do_branch")`

Faz a mudança no documento e depois `Commit`

Concluiu o `Commit`? Depois que terminar, escrever:

`usethis::pr_push()`

* Espera e vai abrir a página do github;

* Depois clicar em `Create pull request`

* Foi aceito? Então novas alterações podem ser enviadas com um novo `commit` e depois Git Push(seta verde do painel no `R`)

* No fim fica "merge".

<h2>
R modificado
</h2>

> Link com tutorial:
https://towardsdatascience.com/customize-your-rstudio-theme-914cca8b04b1

Porém, eu não segui o tutorial integralmente. Eu fiz da seguinte forma:

Utilizando o Git Bash eu escrevi essa linha de comando:

`git clone https://github.com/bradlindblad/rstudio-panda.git`

Depois fui em:

https://github.com/tonsky/FiraCode

https://github.com/kencrocken/FiraCodeiScript

Baixei a pasta zipada no item `Download & Install Fira_Code_v6` e abri a pasta zipada.

Ao entrar, instalei cada uma das fontes disponíveis na pasta.

Posteriormente, abri o `R` e fui em `Tools` > `Global Options` > `Appearance` e pesquisei as fontes que foram baixadas em Editor Font: "Fira Code bold, retina, medium, etc..." e depois OK. O R será reiniciado com a nova fonte.

Outras modificações



Tutorial Markdown -> https://hackmd.io/features?both

---

Links interessantes:
> R
https://github.com/jnolis/synthwave85

> CSS
https://htmlcheatsheet.com/css/

<br>

## Regra para grupo de classes - ok!!!

# Organizando dados do plenário por classe - 2021
tab_plen_class <- dec_org_julg2 |>
  group_by(orgao_julgador2, classe) |>
  #filter(orgao_julgador2 %in% "Plenário") |>
  filter(orgao_julgador2 %in% c("Plenário", "Plenário Virtual - RG") |>
  mutate(plen_classe = if_else(classe %in% c("ADC","ADI","ADO","ADPF"), "Controle Concentrado",
                               if_else(classe %in% c("AP","EP","Ext","HC","Inq","PPE","RC","RHC","RvC"), "Classes Criminais",
                                       if_else(classe %in% c("ARE","RE", "AI"), "Classes Recursais", "Demais Classes Originárias")))) |>
  relocate(plen_classe, .after = classe) |>
  relocate(orgao_julgador2, .after = plen_classe)
  

---

## Script gráfico

# NÃO OK - Euler ajuda aqui!

grupo <- as.factor(c(rep("originario", times=6), rep("recursal", times=6)))

valores <- c(tabela_acervo$originario,tabela_acervo$recursal)

ano  <- factor(tabela_acervo$ano, levels = unique(tabela_acervo$ano))
df <- data.frame(ano,valores,grupo)

df |>
  ggplot(aes(x = ano, y = valores), fill=grupo) +
  geom_text(aes(label = valores),
            position = position_stack(vjust = 1.1))+
  ggtitle("Originários e recursais") +
  geom_area(aes(fill = grupo)) +
  labs(caption = "Fonte: Portal de Informações Gerenciais em 01/01/2021 e Relatório de Atividades 2021.")+
  scale_fill_brewer(palette = "Blues") +
  ggthemes::theme_fivethirtyeight()+
  theme(axis.title.y=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks.y=element_blank())

# Gráfico de originários e recursais

df <-
tabela_acervo |> 
  select(ano:recursal) |> 
  pivot_longer(
    cols = originario:recursal,
    names_to = "classificacao",
    values_to = "qtd"
  )



df |> 
  ggplot(aes(x = ano, y = qtd, 
             fill= fct_reorder(classificacao, qtd, .desc = TRUE)), position = "identity")+
  ggtitle("Originários e recursais") +
  geom_area() +
  labs(caption = "Fonte: Portal de Informações Gerenciais em 01/01/2021 e Relatório de Atividades 2021.")+
  scale_fill_brewer(palette = "Blues") +
  ggthemes::theme_fivethirtyeight()+
  theme(axis.title.y=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks.y=element_blank()) +
  geom_text(aes(label = qtd),
            position = position_stack(vjust = 1.1))

# Fonte:https://stackoverflow.com/questions/40515581/ggplot2-geom-area-overlay-area-plots-in-front-of-each-other


df |> 
  ggplot(aes(x = ano, y = qtd, fill=classificacao))+ 
  geom_line(aes(color = classificacao, linetype = classificacao)) + 
  scale_color_manual(values = c("darkred", "steelblue")) +
  labs(caption = "Fonte: Portal de Informações Gerenciais em 01/01/2021 e Relatório de Atividades 2021.")+
  scale_fill_brewer(palette = "Blues") +
  ggthemes::theme_fivethirtyeight()+
  theme(axis.title.y=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks.y=element_blank()) +
  geom_text(aes(label = qtd))

# Fonte: https://www.datanovia.com/en/blog/how-to-create-a-ggplot-with-multipl

Código Qlik para orgão julgador corrigido

=if([Tipo Decisão]='MONOCRÁTICA','Não se aplica',
     if([Orgão Julgador]= '1ª TURMA' and [Indica Virtual]='1', '1ª TURMA - SESSÃO VIRTUAL',
     if([Orgão Julgador]= '2ª TURMA' and [Indica Virtual]='1', '2ª TURMA - SESSÃO VIRTUAL',
     if([Orgão Julgador]= 'TRIBUNAL PLENO' and [Indica Virtual]='1', 'TRIBUNAL PLENO - SESSÃO VIRTUAL',[Orgão Julgador]))))

# Decisões Virtuais


decisoes2021 |>
  filter(tipo_decisao == 'COLEGIADA') |>
  group_by(orgao_julgador) |>
  summarise(n = sum(qtd_ocorrencias_processuais))


decisoes2021 <-
decisoes2021 |>
  mutate(
    indicador_virtual = stringr::str_detect(observacao_andamento, pattern = "[Ss]ess[ãa]o [Vv]irtual"),
    orgao_julgador2 = case_when(
      orgao_julgador == '1ª TURMA' & indicador_virtual == TRUE ~ '1ª TURMA - SESSÃO VIRTUAL',
      orgao_julgador == '2ª TURMA' & indicador_virtual == TRUE ~ '2ª TURMA - SESSÃO VIRTUAL',
      orgao_julgador == 'TRIBUNAL PLENO' & indicador_virtual == TRUE ~ 'TRIBUNAL PLENO - SESSÃO VIRTUAL',
      TRUE ~ orgao_julgador
    ),
    indicador_virtual_final = stringr::str_detect(orgao_julgador2, pattern = 'VIRTUAL'),
    indicador_virtual_final = if_else(indicador_virtual_final, 'VIRTUAL', 'PRESENCIAL')
  )

# Verificação
decisoes2021 |>
  filter(tipo_decisao == 'COLEGIADA') |>
  group_by(indicador_virtual, indicador_virtual_final) |>
  summarise(n = sum(qtd_ocorrencias_processuais))

decisoes2021 |>
  filter(tipo_decisao == 'COLEGIADA') |>
  group_by(orgao_julgador, orgao_julgador2) |>
  summarise(n = sum(qtd_ocorrencias_processuais))


# Estatística por orgao julgador

decisoes2021 |>
  filter(tipo_decisao == 'COLEGIADA') |>
  group_by(orgao_julgador2) |>
  summarise(n = sum(qtd_ocorrencias_processuais))


# Estatistica de virtual e presencial

decisoes2021 |>
  filter(tipo_decisao == 'COLEGIADA') |>
  group_by(indicador_virtual_final) |>
  summarise(n = sum(qtd_ocorrencias_processuais))

## Informações - Ariane - UFAM

## **Novo** período atual
- **Início do período:** <mark>30/05/2022
- **Final do período:** <mark>15/09/2022
- **Semana de provas finais:** 16/09/2022 a 21/09/2022

<mark>**NOVO HORÁRIO - Atualizado em 02/06/2022**</mark>

- ANÁLISE DE DADOS LONGITUDINAIS: Aula **Presencial** (**<mark>Sem professor até o momento</mark>**);
- MODELOS LINEARES DINÂMICOS: Aula **Remota**.

- Comprovante de matrícula <mark>atualizado</mark>(horário de Manaus)
https://1drv.ms/b/s!AhnZefWJQ0CYklP66JvwpMwo21aq

:::spoiler
<br>

- Calendário acadêmico (Período letivo de 2021/1 – Ano civil 2022)

https://edoc.ufam.edu.br/bitstream/123456789/2617/26/CALENDARIO%202021_1_2%20CONSOLIDADO.pdf
:::