ggplotly-sf.R

# 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"))
  )