class 2

#Library

library(bangladesh)

#Data

country <- get_map("country")
division <- get_map("division")
district <- get_map("district")
upazila <- get_map("upazila")
union <- get_map("union")

#Country

plot(country[1])

#Division

plot(division[1])

#Distric

plot(district[1])

Data Transform Library

MY Division (Barisal)

library(dplyr)

barisal_districts <- district %>% 
  filter(Division == "Barisal")

plot(barisal_districts[1], main = "barisal Division Map")

My District Patuakhali

plot(district[1], main = "District Map of Bangladesh")

Bauphal_upazila <- upazila %>% 
  filter(District == "Patuakhali")

plot(Bauphal_upazila[1], main = "Patuakhali District Map")

Upazila Map of Bangladesh

plot(upazila[1], main = "Upazila Map of Bangladesh")

#list of Upazila in Barisal

subset_upazila <- upazila %>%
  filter(Upazila %in% c("Agailjhara", "Gournadi", "Bakergonj","Banaripara","Barishal Sadar","Mehendigonj","Muladi","Wazirpur","Hizla"))

plot(subset_upazila[1], main = "Nine Upazila Map of Barisal District" )