Construir um MAPA dinâmico no Flexdashboard

dúvidas
1

Boa Noite!

Estou tentando fazer um MAPA dos Estados Brasileiro Dinâmico, combinando a variável ano e um indicador. Por Exemplo, tenho dois indicadores Recenta_Total e Exportação_%, nos anos de 2015 a 2020.

title: “MAPA DINÂMICO - APP”
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
runtime: shiny
theme: spacelab
favicon: xfig.png
social: menu

library(flexdashboard)
library(tidyverse)
library(ggplot2)
library(dplyr)
library(viridis)
# library(brazilmaps) 
library(geobr)
library(sf)
library(maptools)
library(leaflet)

MAPA


 theme_set(theme_bw())

mapa <- read_state(showProgress = FALSE)

renderPlot({

 baseano=dados[dados$ano == input$anos, ]
 
 indicador=baseano[[input$pexp]]
 
 
mapa %>% 
  left_join(baseano, by = "code_state")%>%
 ggplot() +
geom_sf(aes(fill=indicador), color = "black") + 
scale_fill_viridis(name = "Indicador", direction = -1)

 
})

O problema: eu consigo gerar o MAPA e os indicadores e os anos são relacionados, porém não há um casamento entre os valores do indicadores com os Estados no MAPA. Por exemplo, o valor da maior receita que deveria se apresentar no Estado de São Paulo no Mapa é indicado por Góias.

2

Eu usei o comando left_join antes de plotar o MAPA e funcionou.



theme_set(theme_bw())

mapa <- read_state(showProgress = FALSE)


renderPlot({

 dd=dados[dados$ano == input$anos, ]
 
 
mapa1=left_join(mapa, dd, by = "code_state")

mapa1 %>% 
 ggplot(aes(fill=mapa1[[input$pexp]]), color = "black") +
 geom_sf() + 
 scale_fill_viridis(name = "Indicador", direction = -1)


 
})