Leaflet

library(leaflet)

SGUniLatLng = data.frame(
  NUS = c(1.2962018, 103.7768976),
  NTU = c(1.3483099, 103.6831347),
  SMU = c(1.296568,103.852119),
  SUTD = c(1.340216,103.965089),
  SIT = c(1.413836,103.914447),
  SUSS = c(1.32917,103.77639)
) %>%
  t() %>%
  as.data.frame()
colnames(SGUniLatLng) = c("lat","long")
SGUniIcons = makeIcon(iconUrl = c(
  "https://upload.wikimedia.org/wikipedia/en/b/b9/NUS_coat_of_arms.svg",
  "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRDKKdNIKK_5q89BmxycLzHPbaiP-dxWZCM9A&s",
  "https://cdn-assets-eu.frontify.com/s3/frontify-enterprise-files-eu/eyJwYXRoIjoic2luZ2Fwb3JlLW1hbmFnZW1lbnQtdW5pdmVyc2l0eVwvYWNjb3VudHNcLzc0XC80MDAwOTk4XC9wcm9qZWN0c1wvMzRcL2Fzc2V0c1wvNmNcLzIzMjVcLzg0Njk2ZDE4ZjVmNGU4MGNkNDM5NTZkYjU5MGRiNTE2LTE2MjMyOTMzNTYucG5nIn0:singapore-management-university:JHR2-p2HFfo5ewE_kX_ZUsB-oZdCAiM8ZIDLzJo7pvo?width=354",
  "https://www.insidequantumtechnology.com/wp-content/uploads/2023/02/low-res_sutd-logo-square.jpg-1024x1024.png",
  "https://dbcsingapore.org/wp-content/uploads/2021/12/SiT.png",
  "https://upload.wikimedia.org/wikipedia/en/thumb/5/50/SUSS_logo.svg/1200px-SUSS_logo.svg.png"),
  iconWidth = 50,
  iconHeight = 50,
  iconAnchorX = 25,
  iconAnchorY = 50
  )

SGUniLatLng %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers(icon = SGUniIcons,clusterOptions = markerClusterOptions(,showCoverageOnHover = TRUE))