Это должно дать вам то, что вы хотите:
g <- ggplot() +
geom_polygon(data = us, aes(x=long, y = lat, group = group), fill="grey", alpha=0.3) +
geom_point(data=shootings, aes(x=lng, y=lat, size = num_killed, color = num_injured,
text = paste('lng: ', lng,
'<br>lat:', lat,
'<br>Number Killed:', num_killed,
'<br>num_injured:', num_injured)))
ggplotly(g, tooltip = "text")