交互式图形

library(leaflet)nleaflet() %>%n addTiles() %>%n addMarkers(lng=112.768,lat=31.852,popup=”8888″)nnnLTV