INTERACTIVE WEB USING LEAFLET
require(leaflet)## Loading required package: leaflet## Warning: package 'leaflet' was built under R version 4.1.1require(htmltools)## Loading required package: htmltools## Warning: package 'htmltools' was built under R version 4.1.1#%Read Data%
IPL<-read.csv("ipl_latlon.csv")
head(IPL)## X Unnamed..0 city date venue
## 1 0 0 Hyderabad 4/5/2017 Rajiv Gandhi International Stadium, Uppal
## 2 1 1 Pune 4/6/2017 Maharashtra Cricket Association Stadium
## 3 2 2 Rajkot 4/7/2017 Saurashtra Cricket Association Stadium
## 4 3 3 Indore 4/8/2017 Holkar Cricket Stadium
## 5 4 4 Bangalore 4/8/2017 M Chinnaswamy Stadium
## 6 5 5 Hyderabad 4/9/2017 Rajiv Gandhi International Stadium, Uppal
## team1 team2
## 1 Sunrisers Hyderabad Royal Challengers Bangalore
## 2 Mumbai Indians Rising Pune Supergiant
## 3 Gujarat Lions Kolkata Knight Riders
## 4 Rising Pune Supergiant Kings XI Punjab
## 5 Royal Challengers Bangalore Delhi Daredevils
## 6 Gujarat Lions Sunrisers Hyderabad
## winner
## 1 Sunrisers Hyderabad
## 2 Rising Pune Supergiant
## 3 Kolkata Knight Riders
## 4 Kings XI Punjab
## 5 Royal Challengers Bangalore
## 6 Sunrisers Hyderabad
## address
## 1 Rajiv Gandhi International Cricket Stadium, espi rd, VV Nagar, Ward 8 Habsiguda, Greater Hyderabad Municipal Corporation East Zone, Hyderabad, Uppal mandal, Medchalâ\200“Malkajgiri, Telangana, 500 007, India
## 2 Maharashtra Cricket Association Stadium, Gahunje, Mawal, Pune District, Maharashtra, 412101, India
## 3 Saurashtra Cricket Association Stadium, Stadium Internal Road, Paddhari Taluka, Rajkot, Gujarat, India
## 4 Holkar Cricket Stadium, Indore, Indore Tahsil, Indore, Madhya Pradesh, India
## 5 M. Chinnaswamy Stadium, Link Road, Shantala Nagar, East Zone, Bengaluru, Bangalore North, Bangalore Urban, Karnataka, BENGALURU, India
## 6 Rajiv Gandhi International Cricket Stadium, espi rd, VV Nagar, Ward 8 Habsiguda, Greater Hyderabad Municipal Corporation East Zone, Hyderabad, Uppal mandal, Medchalâ\200“Malkajgiri, Telangana, 500 007, India
## location Lat Lon
## 1 17.4059481, 78.5505637699028 17.40595 78.55056
## 2 18.6738164, 73.7064113964208 18.67382 73.70641
## 3 22.362785549999998, 70.71008439911074 22.36279 70.71008
## 4 22.72425115, 75.87967029005587 22.72425 75.87967
## 5 12.9788243, 77.60038607501548 12.97882 77.60039
## 6 17.4059481, 78.5505637699028 17.40595 78.55056#%Splitting it into subgroups%
chennai_wins <- IPL[which(IPL$winner =='Chennai Super Kings'),]
Deccan_wins <- IPL[which(IPL$winner =='Deccan Chargers'),]
Delhi_wins <- IPL[which(IPL$winner =='Delhi Daredevils'),]
Punjab_wins <- IPL[which(IPL$winner =='Kings XI Punjab'),]
kolkata_wins <- IPL[which(IPL$winner =='Kolkata Knight Riders'),]
mumbai_wins <- IPL[which(IPL$winner =='Mumbai Indians'),]
Rajasthan_wins <- IPL[which(IPL$winner =='Rajasthan Royals'),]
Bangalore_wins <- IPL[which(IPL$winner =='Royal Challengers Bangalore'),]
Hyderabad_wins <- IPL[which(IPL$winner =='Sunrisers Hyderabad'),]
Gujarat_wins <- IPL[which(IPL$winner =='Gujarat Lions'),]
Kochi_wins <- IPL[which(IPL$winner =='Kochi Tuskers Kerala'),]
Pune_wins <- IPL[which(IPL$winner =='Pune Warriors'),]
PuneGiants_wins <- IPL[which(IPL$winner =='Rising Pune Supergiants'),]
Matches_that_tied <- IPL[which(IPL$winner =='nan'),]
trophy <- makeIcon(
iconUrl = "https://icon-library.com/images/trophy-icon/trophy-icon-21.jpg",
iconWidth = 36, iconHeight = 36,
iconAnchorX = 22, iconAnchorY = 94,
)
#%creating map and setting base%
leaflet(IPL) %>%
addTiles(group = "OSM (default)") %>%
addProviderTiles("Esri.WorldGrayCanvas", group = "Esri.WorldGrayCanvas") %>%
# Overlay groups
addMarkers(data=Hyderabad_wins,lng= ~Lon, lat=~Lat, icon = trophy, group = "Hyderabad_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=Rajasthan_wins, lng= ~Lon, lat=~Lat, icon = trophy, group = "Rajasthan_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=Bangalore_wins, lng= ~Lon, lat=~Lat, icon = trophy, group = "Bangalore_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=chennai_wins, lng= ~Lon, lat=~Lat,icon = trophy, group = "Chennai_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=Deccan_wins, lng= ~Lon, lat=~Lat, icon = trophy, group = "Deccan_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=Delhi_wins, lng= ~Lon, lat=~Lat, icon = trophy, group = "Delhi_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=Gujarat_wins, lng= ~Lon, lat=~Lat,icon = trophy, group = "Gujarat_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=mumbai_wins, lng= ~Lon, lat=~Lat, icon = trophy, group = "Mumbai_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=Kochi_wins, lng= ~Lon, lat=~Lat, icon = trophy, group = "Kochi_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=kolkata_wins, lng= ~Lon, lat=~Lat,icon = trophy, group = "Kolkata_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=Pune_wins, lng= ~Lon, lat=~Lat, icon = trophy, group = "Pune_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=PuneGiants_wins, lng= ~Lon, lat=~Lat, icon = trophy, group = "PuneGiants_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=Punjab_wins, lng= ~Lon, lat=~Lat, icon = trophy, group = "Punjab_wins",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
addMarkers(data=IPL, lng= ~Lon, lat=~Lat, icon = trophy, group = "IPL",popup = ~htmlEscape(paste(team1,"Vs.",team2,"-",date,"-","Winner: ",winner,"Venue:",venue)),clusterOptions = markerClusterOptions()) %>%
# Layers control
addLayersControl(
overlayGroups = c("OSM (default)", "Esri.WorldGrayCanvas"),
baseGroups = c("IPL", "Bangalore_wins","Chennai_wins","Deccan_wins","Delhi_wins","Gujarat_wins","Hyderabad_wins","Kochi_wins","Kolkata_wins","Mumbai_wins","Pune_wins","PuneGiants_wins","Punjab_wins","Rajasthan_wins"),
options = layersControlOptions(collapsed = FALSE)
)