Mountain Lion Dispersal

San Pedro Riparian National Conservation Area

Dr. Steve Merkley

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.0.4

library(maps)

## Warning: package 'maps' was built under R version 4.0.4

library(htmlwidgets)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(leaflet)
library(magrittr)
library(rgdal)

## Loading required package: sp

## rgdal: version: 1.5-16, (SVN revision 1050)
## Geospatial Data Abstraction Library extensions to R successfully loaded
## Loaded GDAL runtime: GDAL 3.0.4, released 2020/01/28
## Path to GDAL shared files: C:/Users/merkleys/Documents/R/win-library/4.0/rgdal/gdal
## GDAL binary built with GEOS: TRUE 
## Loaded PROJ runtime: Rel. 6.3.1, February 10th, 2020, [PJ_VERSION: 631]
## Path to PROJ shared files: C:/Users/merkleys/Documents/R/win-library/4.0/rgdal/proj
## Linking to sp version:1.4-2
## To mute warnings of possible GDAL/OSR exportToProj4() degradation,
## use options("rgdal_show_exportToProj4_warnings"="none") before loading rgdal.

library(geojsonio)

## Warning: package 'geojsonio' was built under R version 4.0.4

## Registered S3 method overwritten by 'geojsonsf':
##   method        from   
##   print.geojson geojson

## 
## Attaching package: 'geojsonio'

## The following object is masked from 'package:base':
## 
##     pretty

library(htmltools)
library(htmlwidgets)
library(stringi)
library(RColorBrewer)

cougarmap <-leaflet()%>%
  addTiles() %>%
  addCircles(lng=-110.12895,lat=31.50932,
                   weight=1,
                   radius=110000,
                    popup= 'Male',
                   color='red')%>%
  addCircles(lng=-110.12895,lat=31.50932,
                   weight=1,
                   radius=45000,
                    popup='Female',
                   color='blue')%>%
  addCircles(lng=-110.12895,lat=31.50932,
             weight=1,
             radius=1500,
             popup='Kittens Born',
             color='yellow')%>%
  setView(lng=-110.13187,lat=31.54166,zoom=8)

cougarmap1<-cougarmap%>%addProviderTiles(providers$Stamen.Terrain)
cougarmap2<-cougarmap%>%addProviderTiles(providers$Esri.WorldImagery)%>%addProviderTiles(providers$Stamen.TonerHybrid)

cougarmap1

Yellow: Birth Site of Mountain Lion Kittens (2019)
Blue: Average Female Dispersal (45km)
Red: Average Male Dispersal (110km)