R Markdown Data Products Week 2 Assignment with Leaflet

knitr::opts_chunk$set(echo = TRUE)

R Markdown

I created data kml format from Google earth with add path feature then converted to text document. This maps shows Turkey

activityData <- read.delim('20180307114742-28207-data.txt',header=T)
vlats <-activityData$latitude
vlongs<- activityData$longitude
Clean_activityData<- cbind(vlats,vlongs)
head(Clean_activityData)

##         vlats   vlongs
## [1,] 37.54327 44.59612
## [2,] 37.15073 43.47481
## [3,] 37.14056 42.27874
## [4,] 37.10158 40.94676
## [5,] 36.83929 39.13559
## [6,] 36.66785 37.61400

## Loading required package: leaflet

## 
## 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

## Interactive Map - Click on the human and see latitude and longtitude

Mapping Clusters

Mapping Clusters When you zoom in to each cluster, the cluster will seperate until you see the individual Markers!!

Clean_activityData %>%
leaflet() %>%
addTiles() %>%  
addMarkers(clusterOptions = markerClusterOptions())