library(bangladesh)
## Warning: package 'bangladesh' was built under R version 4.5.2
country <- get_map("country")
division <- get_map("division")
district <- get_map("district")
upazila <- get_map("upazila")
plot(country[1])

plot(division[1])

plot(district[1])

plot(upazila[1])

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
upazila <- get_map("upazila")

plot(upazila[1])

subset_upazila <- upazila %>%

filter(Upazila %in% c("Savar", "kotwali","Sonargaon"))

plot(subset_upazila[1])

library(dplyr)
subset_district <- district %>%
  filter(District %in% c("Kushtia"))

plot(subset_district[1])

library(dplyr)
subset_division <- division %>%
  filter(Division %in% c("Khulna"))
plot(subset_division[1])