# load data
data(sociologists)
data(locations)
# load pictures
sociologists$picture <- system.file("extdata", sociologists$picture,
package="evolMap")
# join locations
sociologists$latitude <- locations[,1]
sociologists$longitude <- locations[,2]
# create map
map <- create_map()
map <- add_markers(map, sociologists,
latitude = "latitude", longitude = "longitude",
label = "label", image = "picture",
start = "birth", end = "death")
# \donttest{
# plot map
plot(map)
# }
Run the code above in your browser using DataLab