An interactive map showing site locations and images for the Zostera Experimental Network (ZEN).
Images from: http://www.zenscience.org/.
# Load libraries
library(leaflet)
#Read in data
data = read.table(
textConnection('
Site Latitude Long
AK 59.39 -151.6833333
BB 38.32 -123.0333333
BC 49 -123.1
FI 60.1 21.7
JN 43.07 144.91
JS 34.29 134.2333333
MA 42.43 -70.919
NC 34.68 -76.6
NN 67 8.916666667
PO 37 -8.6
QU 49.03 -68.5
SD 32.71 -117.2255833
SW 58.31 18.63333333
VA 37.22 -76.38333333
WA 46.5 -124
'), header = T)
# Add pop-up images
data$popup = c(
paste("Alaska <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/AK_the-team-2_21-300x225.jpg' width='300' height='225' />"),
paste("Bodega Bay <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/BB_gals1-300x225.jpg' width='300' height='225' />"),
paste("British Columbia <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/ZEN_BC_9_2-300x225.jpg' width='300' height='225' />"),
paste("Finland <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/ZEN-team-300x225.jpg' width='300' height='225' />"),
paste("Japan North <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/IMGP0161-300x225.jpg' width='300' height='225' />"),
paste("Japan South <br> <img src='http://zenscience.org/wp-content/uploads/2012/08/ZEN-Team-Serious-300x225.jpg' width='300' height='225' />"),
paste("Massachusetts <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/ZEN_MA_2014-300x199.jpg' width='300' height='225' />"),
paste("North Carolina <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/NC_ZEN_2012_team-300x200.jpg' width='300' height='225' />"),
paste("Northern Norway <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/NN_JimGalice-300x225.jpg' width='300' height='225' />"),
paste("Portugal <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/PO_resized-300x225.jpg' width='300' height='225' />"),
paste("Quebec <br> <img src='http://zenscience.org/wp-content/uploads/2012/08/P7020168-300x225.jpg' width='300' height='225' />"),
paste("San Diego <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/SD_ZEN_crew_July_2012-300x257.jpg' width='300' height='225' />"),
paste("Sweden <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/Zen-team-300x252.jpg' width='300' height='225' />"),
paste("Virginia <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/IMG_0453-300x225.jpg' width='300' height='225' />"),
paste("Washington <br> <img src='http://zenscience.org/wp-content/uploads/2011/09/IMGP0112_2-300x225.jpg' width='300' height='225' />"))
# Make the map
leaflet() %>%
addTiles %>%
addCircleMarkers(data=data, lat = ~Latitude, lng = ~Long, color = "dodgerblue", radius = 9, popup = ~popup)