---
title: "Editais"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
library(openxlsx)
library(flexdashboard)
library(readxl)
library(plotly)
library(dplyr)
library(ggplot2)
library(tidyr)
```


Lançados
=======================================================================

Column {data-width=250}
-----------------------------------------------------------------------

### X

```{r}
valueBox(
  value = 198,
  icon = "fa-file-text-o",
  caption = "Editais Lançados"
)
```

### X

```{r}

valueBox(
  value = paste0("R$ 187.800.830,46"),
  icon = "fa-money",
  caption = "Recursos Lançados"
)
```

Column {.tabset .tabset-fade data-width=750}
-----------------------------------------------------------------------

### Editais Lancados por ano

```{r}

# Criar o novo conjunto de dados
editais_lancados <- data.frame(
  Ano = c(2008:2023),
  Contagem_de_Ano = c(12, 16, 14, 15, 14, 14, 13, 12, 10, 8, 10, 4, 3, 14, 16, 23)
)

# Garantir que a coluna "Ano" seja numérica
editais_lancados <- editais_lancados %>%
  mutate(
    Ano = as.numeric(Ano),
    Contagem_de_Ano = as.numeric(Contagem_de_Ano)
  )

# Criar o gráfico de barras interativo
grafico_editais_lancados <- plot_ly(
  data = editais_lancados,
  x = ~Ano,
  y = ~Contagem_de_Ano,
  type = 'bar',
  name = 'Editais',
  marker = list(opacity = 0.7)
) %>%
  layout(
    title = "Editais Lancados por Ano",
    xaxis = list(title = "Ano"),
    yaxis = list(title = "Editais"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_editais_lancados

```

### Valor de editais por ano

```{r}

# Criar o novo conjunto de dados
recursos_lancados <- data.frame(
  Ano = c(2008:2023),
  Soma_Total_Recursos = c(
    3549576.00, 11333102.72, 9818717.80, 11063200.00, 13571400.00, 
    14459911.10, 7253786.97, 15023806.87, 29840400.00, 3216000.00, 
    9553000.00, 2052000.00, 3526000.00, 25216719.00, 13316235.00, 
    15006975.00
  )
)

# Garantir que a coluna "Ano" seja numérica e "Soma_Total_Recursos" seja numérica
recursos_lancados <- recursos_lancados %>%
  mutate(
    Ano = as.numeric(Ano),
    Soma_Total_Recursos = as.numeric(Soma_Total_Recursos)
  )

# Criar o gráfico de barras interativo para recursos lançados por ano
grafico_recursos_lancados <- plot_ly(
  data = recursos_lancados,
  x = ~Ano,
  y = ~Soma_Total_Recursos,
  type = 'bar',
  name = 'Recursos',
  marker = list(opacity = 0.7)
) %>%
  layout(
    title = "Recursos Lançados por Ano",
    xaxis = list(title = "Ano"),
    yaxis = list(title = "Recursos (Milhões de R$)"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_recursos_lancados

```


### Editais Lancados por Tipo

```{r}

# Criar o novo conjunto de dados
tipo_editais_lancados <- data.frame(
  Tipo = c("Auxilio ao pesquisador", "Bolsa Pos", "Bolsas", "Eventos", "Outros", "Subvencao"),
  Quantidade = c(47, 21, 54, 64, 5, 7)
)

# Garantir que a coluna "Quantidade" seja numérica
tipo_editais_lancados <- tipo_editais_lancados %>%
  mutate(
    Quantidade = as.numeric(Quantidade)
  )

# Criar o gráfico de barras interativo para tipos de editais lançados por ano
grafico_tipo_editais_lancados <- plot_ly(
  data = tipo_editais_lancados,
  x = ~Tipo,
  y = ~Quantidade,
  type = 'bar',
  name = 'Tipo',
  marker = list(opacity = 0.7)
) %>%
  layout(
    title = "Editais Lancados por Tipo",
    xaxis = list(title = "Tipo"),
    yaxis = list(title = "Quantidade"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_tipo_editais_lancados

```


### Recursos Lancados por Tipo

```{r}

# Criar o novo conjunto de dados
recursos_lancados_tipo <- data.frame(
  Tipo = c("Auxilio ao pesquisador", "Bolsa Pos", "Bolsas", "Eventos", "Outros", "Subvencao"),
  Recursos = c(71286598.07, 73729296.00, 19825477.39, 12682785.00, 48000.00, 10228674.00)
)

# Garantir que a coluna "Recursos" seja numérica
recursos_lancados_tipo <- recursos_lancados_tipo %>%
  mutate(
    Recursos = as.numeric(Recursos)
  )

# Criar o gráfico de barras interativo para recursos lançados por tipo
grafico_recursos_lancados_tipo <- plot_ly(
  data = recursos_lancados_tipo,
  x = ~Tipo,
  y = ~Recursos,
  type = 'bar',
  name = 'Recursos',
  marker = list(opacity = 0.7)
) %>%
  layout(
    title = "Recursos Lançados por Tipo de Edital",
    xaxis = list(title = "Tipo"),
    yaxis = list(title = "Recursos (Milhões de R$)"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_recursos_lancados_tipo


```


Contratados
=======================================================================

Column {data-width=250}
-----------------------------------------------------------------------

### X

```{r}
valueBox(
  value = 205,
  icon = "fa-file-text-o",
  caption = "Editais Contratados"
)
```

### X

```{r}
valueBox(
  value = 8,
  icon = "fa-file-text-o",
  caption = "Editais à contratar"
)
```

### Valor dos recursos por tipo

```{r}

valueBox(
  value = paste0("R$ 121.225.034,97"),
  icon = "fa-money",
  caption = "Total de Investimento"
)
```

Column {.tabset .tabset-fade data-width=750}
-----------------------------------------------------------------------

### Quantidade de editais por ano

```{r}

# Criar o objeto base para o gráfico
editais_contratados_ano <- data.frame(
  Ano_da_Contratacao = c(2008:2023),
  Quantidade = c(11, 17, 21, 14, 16, 14, 19, 12, 9, 10, 11, 4, 4, 12, 16, 15)
)

# Garantir que a coluna "Ano_da_Contratacao" seja numérica e "Quantidade" seja numérica
editais_contratados_ano <- editais_contratados_ano %>%
  mutate(
    Ano_da_Contratacao = as.numeric(Ano_da_Contratacao),
    Quantidade = as.numeric(Quantidade)
  )

# Criar o gráfico de barras interativo para editais contratados por ano
grafico_editais_contratados_ano <- plot_ly(
  data = editais_contratados_ano,
  x = ~Ano_da_Contratacao,
  y = ~Quantidade,
  type = 'bar',
  name = 'Editais Contratados',
  marker = list(opacity = 0.7)
) %>%
  layout(
    title = "Editais Contratados por Ano",
    xaxis = list(title = "Ano"),
    yaxis = list(title = "Quantidade"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_editais_contratados_ano

```

### Total de valor por ano

```{r}

# Criar o objeto base para o gráfico
recursos_contratados_ano <- data.frame(
  Ano = c(2008:2023),
  Recursos = c(
    2051499.03, 5138372.35, 10574144.66, 5429306.81, 14489853.10, 
    5551745.64, 9844443.49, 7089981.92, 10611279.79, 14849381.31, 
    10674429.42, 3571783.75, 3290572.46, 4122049.00, 10585479.96, 3350712.28
  )
)

# Garantir que a coluna "Ano" seja numérica e "Recursos" seja numérica
recursos_contratados_ano <- recursos_contratados_ano %>%
  mutate(
    Ano = as.numeric(Ano),
    Recursos = as.numeric(Recursos)
  )

# Criar o gráfico de barras interativo para recursos contratados por ano
grafico_recursos_contratados_ano <- plot_ly(
  data = recursos_contratados_ano,
  x = ~Ano,
  y = ~Recursos,
  type = 'bar',
  name = 'Recursos Contratados',
  marker = list(opacity = 0.7)
) %>%
  layout(
    title = "Recursos Contratados por Ano",
    xaxis = list(title = "Ano"),
    yaxis = list(title = "Recursos (Milhões de R$)"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_recursos_contratados_ano


```


### Quantidade de editais por tipo

```{r}

# Criar o objeto base para o gráfico
editais_contratados_tipo <- data.frame(
  Tipo = c("Auxílio ao pesquisador", "Bolsa Pós", "Bolsas", "Eventos", "Outros", "Subvenção"),
  Quantidade = c(49, 20, 68, 63, 6, 7)
)

# Garantir que a coluna "Quantidade" seja numérica
editais_contratados_tipo <- editais_contratados_tipo %>%
  mutate(
    Quantidade = as.numeric(Quantidade)
  )

# Criar o gráfico de barras interativo para editais contratados por tipo
grafico_editais_contratados_tipo <- plot_ly(
  data = editais_contratados_tipo,
  x = ~Tipo,
  y = ~Quantidade,
  type = 'bar',
  name = 'Editais Contratados',
  marker = list(opacity = 0.7)
) %>%
  layout(
    title = "Editais Contratados por Tipo",
    xaxis = list(title = "Tipo"),
    yaxis = list(title = "Quantidade"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_editais_contratados_tipo


```

### Valor por tipo

```{r}

# Criar o objeto base para o gráfico
recursos_contratados_tipo <- data.frame(
  Tipo = c("Auxílio ao pesquisador", "Bolsa Pós", "Bolsas", "Eventos", "Outros", "Subvenção"),
  Recursos_Contratados = c(43751896.40, 35204585.00, 24657811.59, 7303298.81, 48000.00, 10259443.17)
)

# Garantir que a coluna "Recursos_Contratados" seja numérica
recursos_contratados_tipo <- recursos_contratados_tipo %>%
  mutate(
    Recursos_Contratados = as.numeric(Recursos_Contratados)
  )

# Criar o gráfico de barras interativo para recursos contratados por tipo
grafico_recursos_contratados_tipo <- plot_ly(
  data = recursos_contratados_tipo,
  x = ~Tipo,
  y = ~Recursos_Contratados,
  type = 'bar',
  name = 'Recursos Contratados',
  marker = list(opacity = 0.7)
) %>%
  layout(
    title = "Recursos Contratados por Tipo de Edital",
    xaxis = list(title = "Tipo"),
    yaxis = list(title = "Recursos (Milhões de R$)"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_recursos_contratados_tipo


```


Análise Comparativa
=======================================================================

Column
-----------------------------------------------------------------------

### Quantidade de editais lançados e contratados por ano

```{r}

# Criar tibble manualmente
bd_quantidade <- tibble(
  Ano = c(2008:2023),
  Lancados = c(12, 16, 14, 15, 14, 14, 13, 12, 10, 8, 10, 4, 3, 14, 16, 23),
  Contratados = c(11, 17, 21, 14, 16, 14, 19, 12, 9, 10, 11, 4, 4, 12, 16, 15)
)

# Criar o gráfico de linhas e pontos interativo
grafico_comparacao <- plot_ly(
  data = bd_quantidade,
  x = ~Ano
) %>%
  add_trace(
    y = ~Lancados,
    name = "Editais Lançados",
    type = 'scatter',
    mode = 'lines+markers', # Adiciona linhas e pontos
    line = list(color = 'blue'),
    marker = list(size = 8, color = 'blue')
  ) %>%
  add_trace(
    y = ~Contratados,
    name = "Editais Contratados",
    type = 'scatter',
    mode = 'lines+markers', # Adiciona linhas e pontos
    line = list(color = 'red'),
    marker = list(size = 8, color = 'red')
  ) %>%
  layout(
    title = "Comparação: Editais Lançados vs Contratados por Ano",
    xaxis = list(title = "Ano"),
    yaxis = list(title = "Quantidade de Editais"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_comparacao

```

### Valor de editais lançados e contratados por ano

```{r}

# Criar tibble com valores lançados
bd_valor_lancados <- tibble::tibble(
  Ano = c(2008:2023),
  Lançados = c(
    3549576.00, 11333102.72, 9818717.80, 11063200.00, 13571400.00, 
    14459911.10, 7253786.97, 15023806.87, 29840400.00, 3216000.00, 
    9553000.00, 2052000.00, 3526000.00, 25216719.00, 13316235.00, 
    15006975.00
  )
)

# Criar tibble com valores contratados
bd_recursos_contratacao <- tibble::tibble(
  Ano = c(2008:2023),
  Contratados = c(
    2051499.03, 5138372.35, 10574144.66, 5429306.81, 14489853.10, 
    5551745.64, 9844443.49, 7089981.92, 10611279.79, 14849381.31, 
    10674429.42, 3571783.75, 3290572.46, 4122049.00, 10585479.96, 3350712.28
  )
)

# Unir os dois conjuntos de dados
bd_valores <- full_join(bd_valor_lancados, bd_recursos_contratacao, by = "Ano")

# Criar o gráfico de linhas e pontos interativo
grafico_valores <- plot_ly(
  data = bd_valores,
  x = ~Ano
) %>%
  add_trace(
    y = ~Lançados,
    name = "Recursos Lançados",
    type = 'scatter',
    mode = 'lines+markers',
    line = list(color = 'blue'),
    marker = list(size = 8, color = 'blue')
  ) %>%
  add_trace(
    y = ~Contratados,
    name = "Recursos Contratados",
    type = 'scatter',
    mode = 'lines+markers',
    line = list(color = 'red'),
    marker = list(size = 8, color = 'red')
  ) %>%
  layout(
    title = "Comparação: Recursos Lançados vs Contratados por Ano",
    xaxis = list(title = "Ano"),
    yaxis = list(title = "Valores Totais (R$)"),
    legend = list(title = list(text = "Legenda"))
  )

grafico_valores


```