Tests_R

library(plotly)

p <- ggplot(data = stops_county, aes(x = pct_black_stopped, y = pct_white_stopped)) +
  geom_point()

ggplotly(p)