Required Library
##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, uniondata<-read.xlsx("Rainfall Spatial Value.xlsx")
head(data)## station.name Lat Lon Annual
## 1 khulna 22.82 89.57 32.95235
## 2 Barisal 22.70 90.38 32.95235
## 3 Mongla 22.43 89.66 32.81685
## 4 Jessore 23.18 89.23 32.81685
## 5 Satkhira 22.70 89.07 32.81685
## 6 Sylhet 24.88 91.93 36.70611d<-data[-1]
d<-d[-3]
head(d)## Lat Lon
## 1 22.82 89.57
## 2 22.70 90.38
## 3 22.43 89.66
## 4 23.18 89.23
## 5 22.70 89.07
## 6 24.88 91.93data$labels<-paste("<p>", "Station_name:", data$station.name,"<p>",
"<p>", "Annual rainfall:", round(data$Annual,digits = 3),"<p>")
data$labels## [1] "<p> Station_name: khulna <p> <p> Annual rainfall: 32.952 <p>"
## [2] "<p> Station_name: Barisal <p> <p> Annual rainfall: 32.952 <p>"
## [3] "<p> Station_name: Mongla <p> <p> Annual rainfall: 32.817 <p>"
## [4] "<p> Station_name: Jessore <p> <p> Annual rainfall: 32.817 <p>"
## [5] "<p> Station_name: Satkhira <p> <p> Annual rainfall: 32.817 <p>"
## [6] "<p> Station_name: Sylhet <p> <p> Annual rainfall: 36.706 <p>"
## [7] "<p> Station_name: Madaripur <p> <p> Annual rainfall: 32.952 <p>"
## [8] "<p> Station_name: Srimongal <p> <p> Annual rainfall: 38.1 <p>"
## [9] "<p> Station_name: Dhaka <p> <p> Annual rainfall: 38.1 <p>"
## [10] "<p> Station_name: Tangail <p> <p> Annual rainfall: 40.311 <p>"
## [11] "<p> Station_name: Mymensing <p> <p> Annual rainfall: 38.1 <p>"
## [12] "<p> Station_name: Comilla <p> <p> Annual rainfall: 38.1 <p>"
## [13] "<p> Station_name: Feni <p> <p> Annual rainfall: 32.952 <p>"
## [14] "<p> Station_name: Chandpur <p> <p> Annual rainfall: 32.952 <p>"
## [15] "<p> Station_name: Patuakhali <p> <p> Annual rainfall: 32.952 <p>"
## [16] "<p> Station_name: Khepupara <p> <p> Annual rainfall: 32.952 <p>"
## [17] "<p> Station_name: Faridpur <p> <p> Annual rainfall: 38.329 <p>"
## [18] "<p> Station_name: Bhola <p> <p> Annual rainfall: 32.952 <p>"
## [19] "<p> Station_name: Coxbazar <p> <p> Annual rainfall: 32.482 <p>"
## [20] "<p> Station_name: Teknaf <p> <p> Annual rainfall: 32.482 <p>"
## [21] "<p> Station_name: Kutubdia <p> <p> Annual rainfall: 32.952 <p>"
## [22] "<p> Station_name: Sandwip <p> <p> Annual rainfall: 32.952 <p>"
## [23] "<p> Station_name: Maijdee court <p> <p> Annual rainfall: 32.952 <p>"
## [24] "<p> Station_name: Hatiya <p> <p> Annual rainfall: 32.952 <p>"
## [25] "<p> Station_name: Chittagong <p> <p> Annual rainfall: 32.952 <p>"
## [26] "<p> Station_name: Rangamati <p> <p> Annual rainfall: 35.523 <p>"
## [27] "<p> Station_name: Sitakundu <p> <p> Annual rainfall: 32.952 <p>"
## [28] "<p> Station_name: Chuadanga <p> <p> Annual rainfall: 38.329 <p>"
## [29] "<p> Station_name: Syedpur <p> <p> Annual rainfall: 38.847 <p>"
## [30] "<p> Station_name: Ishurdi <p> <p> Annual rainfall: 38.329 <p>"
## [31] "<p> Station_name: Dinajpur <p> <p> Annual rainfall: 38.847 <p>"
## [32] "<p> Station_name: Rajshahi <p> <p> Annual rainfall: 38.329 <p>"
## [33] "<p> Station_name: Rangpur <p> <p> Annual rainfall: 38.847 <p>"
## [34] "<p> Station_name: Bogra <p> <p> Annual rainfall: 38.329 <p>"#head(data)
my_mp<-leaflet() %>%
addProviderTiles(providers$Stamen.Toner) %>%
addMarkers(data = data,lng = data$Lon,lat = data$Lat,
label =lapply(data$labels, HTML))
my_mp