Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
# 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"))
)
Owner

cpsievert commented Apr 27, 2017

sf

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment