A creative map

This is a map showing the top 10 hottest tourist spots in Shanghai, China. The circumference of a circle is related to the estimated number of visiting people during peak hours in each spot.

df=data.frame(name=c("Oriental Pearl Radio & TV Tower","Shanghai Tower","The Bund Historic Buildings","Yu Garden (City God Temple Area)","Shanghai Museum","Nanjing Road Pedestrian Street","Tianzifang Art District","Jing'an Temple","St. Ignatius Cathedral (Xujiahui)","Shanghai World Financial Center (SWFC)"),
             lat=c(31.2394,31.2337,31.2421,31.2273,31.2305,31.2378,31.2073,31.2230,31.1956,31.2342),
             lng=c(121.4998,121.5053,121.4902,121.4926,121.4756,121.4789,121.4695,121.4461,121.4378,121.5061),
             visitor=c(30000,18000,300000,90000,15000,500000,35000,10000,5000,12000))
library(dplyr)
library(leaflet)
df %>% 
    leaflet() %>% 
    addTiles() %>% 
    addMarkers(popup=df$name) %>% 
    addCircles(weight=1,radius=sqrt(df$visitor)*2)