Estou tentando reproduzir o formato do mapa abaixo, no entanto, venho enfrentando alguns problemas parar inserir essas "retas" no mapa. Após uma pesquisa, encontrei o pacote ggrepel
que trás consigo uma série de funções capazes de realizar o desejado. Para mais detalhes veja: https://ggrepel.slowkow.com/articles/examples.html.
Eu pretendo inserir um ponto vermelho em cada estado do mapa com a "reta" saindo dele, e posteriormente acrescentar algumas informações numéricas, basicamente seria próximo ao exemplo a seguir:
Todavia, venho enfrentando o erro que está sendo apresentado no código abaixo.
Os dados estão disponíveis aqui: https://drive.google.com/file/d/1TuApNsGtVfNVcGOHmEB-5qVxObRa13V7/view?usp=sharing
library(geobr)
library(ggplot2)
library(ggrepel)
states <- read_state(code_state = "all",year = 2019)
states <- dplyr::left_join(states, dados, by = c("name_state" = "uf"))
ggplot(states) +
geom_sf(data = states, aes(fill = AreaTotal)) +
geom_sf_label(aes(label = states$abbrev_state),label.padding = unit(0.8, "mm"),size = 4)+
geom_point(data = states, color = "red")
Erro: geom_point requires the following missing aesthetics: x and y
Run `rlang::last_error()` to see where the error occurred.
Além disso: Warning messages:
1: Use of `states$abbrev_state` is discouraged. Use `abbrev_state` instead.
2: In st_point_on_surface.sfc(sf::st_zm(x)) :
st_point_on_surface may not give correct results for longitude/latitude data
````
ggrepel
. Para as setas deve escolher entregeom_label_repel()
ougeom_text_repel()
. Observe que as duas funções querem os pontos/coordenadas onde devam ser inseridas das setas/linhas. Sugiro consultar esse material aqui. O erro apresentado entá na funçãogeom_point()
, valores de x e y faltantes...