library(tidyverse)
library(giscoR)
library(ggiraph)
germany_districts
as_tibble() |
janitor::clean_names()
germany_states
as_tibble() |
janitor::clean_names()
ggplt
ggplot(aes(geometry = geometry)) +
geom_sf(
data = germany_states,
aes(fill = nuts_name),
color = ‘black’,
linewidth = 0.5
) +
geom_sf_interactive(
fill = NA,
aes(
data_id = nuts_id,
tooltip = glue::glue(…