Coursera Developing Data Products

Coursera Developing Data Products

Week 02 Assignment

1) Overview

As a sport fan I have the idea to plot most of the soccer stadiums around the world. Based on data from Wikidata Query I was able to do it in the following Leaflet map

2) Simulation

This Data was generated and ploted on October 19 - 2018

library(leaflet)
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

rw_data <- read.csv("stadium data.csv", colClasses = "character")


rw_data <- as.data.frame (rw_data %>%
                            mutate(tmp = as.numeric(lat), lat = as.numeric(lng), lng = as.numeric(tmp)))

rw_data %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers(clusterOptions = markerClusterOptions(), popup = rw_data$clubLabel)

## Assuming 'lng' and 'lat' are longitude and latitude, respectively