# devtools::install_github("ropensci/plotly") | |
library(plotly) | |
nc <- sf::st_read(system.file("shape/nc.shp", package = "sf")) | |
# shared data will make the polygons "query-able" | |
ncsd <- crosstalk::SharedData$new(nc) | |
p <- ggplot(ncsd) + | |
geom_sf(aes(fill = AREA, text = paste0(NAME, "\n", "FIPS: ", FIPS))) + | |
ggthemes::theme_map() | |
# use highlight function to draw polygon outline on hover | |
ggplotly(p, tooltip = "text") %>% | |
highlight( | |
"plotly_hover", | |
opacityDim = 1, | |
selected = attrs_selected(line = list(color = "black")) | |
) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
This comment has been minimized.