This map shows the states I have visited in the US.

basemap %>%
  # Friends - Red
  # Business - Blue
  # Visit - Orange
  addPolygons(data=biz, color = "blue",
              weight = 1, fillOpacity = 0.3,
              group = "Business",
              popup = paste("<p>", biz$STATE_NAME,"<p>")) %>%
  addPolygons(data=vis, color = "orange",
              weight = 1, fillOpacity = 0.3,
              group = "Visited",
              popup = paste("<p>", vis$STATE_NAME,"<p>")) %>%
  addPolygons(data=fri, color = "red",
              weight = 1, fillOpacity = 0.3,
              group = "Friends",
              popup = paste("<p>", fri$STATE_NAME,"<p>")) %>%
  addLayersControl(overlayGroups = c("Friends","Visited","Business"))