Crear un mapa de agrupamiento de puntos con zoom (leaflet)

library(leaflet)
longitud <-c(rnorm(200)/1.6 - 3.133 )
latitud <- c(rnorm(200)/2.6 + 39.3 )
df <- data.frame(longitud,latitud)
leaflet(df) %>% addTiles() %>%
 addMarkers(lng = ~longitud, lat = ~latitud, 
 clusterOptions = markerClusterOptions()
 )

Crear un mapa de círculos de colores y tamaños con zoom (leaflet)

library(leaflet)
longitud <-c(rnorm(200)/1.6 - 3.133 )
latitud <- c(rnorm(200)/2.6 + 39.3)
color <- c(rep("red",100), rep("blue",100))
tamano <- c(rnorm(200)*100)
titulo <- rep("Titulo",200)
df <- data.frame(longitud, latitud, color, tamano, titulo)
leaflet(df) %>% addTiles() %>%
 addCircles(lng = ~longitud, lat = ~latitud, weight = 1, color=~color,
 radius = ~tamano * 30, popup = ~titulo
 )

Crear un mapa del mundo con paises (rworldmap)

#install.packages("maps")
#install.packages("rworldmap")
library(rworldmap)
library(maps)

ddf = read.table(text="
country value
                USA 10
                UK 30
                Peru 40
                Spain 50
                China 100
                 ", header=T)

spdf <- joinCountryData2Map(ddf, joinCode="NAME", nameJoinColumn="country")
mapCountryData(spdf, nameColumnToPlot="value", catMethod="fixedWidth")