Instructions

Create a web page using R Markdown that features a map created with Leaflet then host your webpage on either GitHub Pages, RPubs, or NeoCities.

library(leaflet)
library(dplyr)

My Map

This map shows you the Yugar bat tunnel and 3 common foraging locations of the 2 species of insectivorous bats including, Myotis macropus and Miniopterus australis near the bat tunnel located in the Samford region in Brisbane.

You may click on the highlighted areas and see what they are! :D

my_map_df <- data.frame(Pop = c("Yugar tunnel", "Myotis macropus active site1",
                                 "Myotis macropus active site 2", "Miniopterus australis active site1"),
                        lat = c(-27.345745, -27.338797,-27.360209,-27.341049),
                        lng = c(152.874685, 152.881077,152.882562,152.867216))

pal <- colorFactor(palette = c("yellow","blue", "blue", "red"), 
                   domain = my_map_df$Pop)

map <- my_map_df%>%
        leaflet()%>%
        addTiles()%>%
        setView(lat = -27.345745, lng = 152.874685,
                zoom = 13)%>%
        addCircleMarkers(data = my_map_df,
                         lat = ~lat,
                         lng = ~lng,
                         radius = 5,
                         color = ~pal(Pop),
                         popup = ~Pop)
        
map