Spatial data

About the datset

The dataset is about the total deaths in dubai due to the covid-19.

Load dataset

spatialData=read.csv("D:\\Downloads\\New_Saudi_Cities_COVID-19.csv")
View(spatialData)
attach(spatialData)
library(leaflet)

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

selecting particular features

spatial_df = spatialData[c(3,4,8)]
spatial_df

View(spatial_df)
str(spatial_df)

## 'data.frame':    356 obs. of  3 variables:
##  $ Lat        : num  26.4 26.4 26.4 26.4 26.4 ...
##  $ Long       : num  50.1 50.1 50.1 50.1 50.1 ...
##  $ TotalDeaths: int  0 0 0 0 0 0 0 0 0 0 ...

unique(TotalDeaths)

## [1] 0 1 2 3 4 8

adding new column (vectorization)

label_id = as.numeric(as.factor(TotalDeaths))
unique(label_id)

## [1] 1 2 3 4 5 6

names(spatial_df)

## [1] "Lat"         "Long"        "TotalDeaths"

applying colors

getcolor = function(spatial_df)
{
  sapply(label_id,function(label_id) #call by reference [reference = label_id]
  {
    if(label_id == 1)
    {
      "pink"
    }
    else if(label_id == 2)
    {
      "red"
    }
    else if(label_id == 3)
    {
      "green"
    }
    else
    {
      "blue"
    }
  }
  )
}




icons = awesomeIcons(icon="ios-close",iconColor = "blue", library = "ion",markerColor =getcolor(spatial_df))

icons

## $icon
## [1] "ios-close"
## 
## $library
## [1] "ion"
## 
## $markerColor
##   [1] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [10] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [19] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [28] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [37] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [46] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [55] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [64] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [73] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [82] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
##  [91] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [100] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [109] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [118] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [127] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [136] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [145] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [154] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [163] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [172] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [181] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [190] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [199] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [208] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [217] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [226] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [235] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [244] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [253] "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink"  "pink" 
## [262] "pink"  "pink"  "pink"  "pink"  "red"   "red"   "red"   "red"   "red"  
## [271] "red"   "red"   "red"   "red"   "red"   "red"   "red"   "red"   "pink" 
## [280] "red"   "red"   "green" "green" "green" "green" "green" "green" "green"
## [289] "green" "green" "green" "green" "green" "blue"  "blue"  "blue"  "blue" 
## [298] "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue" 
## [307] "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue" 
## [316] "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue" 
## [325] "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue" 
## [334] "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue" 
## [343] "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue"  "blue" 
## [352] "blue"  "blue"  "blue"  "blue"  "blue" 
## 
## $iconColor
## [1] "blue"
## 
## $spin
## [1] FALSE
## 
## $squareMarker
## [1] FALSE
## 
## $iconRotate
## [1] 0
## 
## $font
## [1] "monospace"

calling leaflet functing to a r object

admin_name_map <- leaflet() %>%
  addAwesomeMarkers(data = spatial_df, lat =Lat,  lng = Long,icon = icons,
                    popup = TotalDeaths, label = TotalDeaths)%>%
  
  #this is the intergeration part with Open Street Map using pipeline
  addTiles(group ="OSM")

admin_name_map