library(bangladesh)

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

Division Map

plot(division[1], main = "Division Map of Bangladesh")

# My Division (Khulna)

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
Khulna_districts <- district %>%
  filter(Division == "Khulna")

plot(Khulna_districts[1], main = "Khulna District Map")

# Dictrict Map

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

# My District (Chuadanga)

library(dplyr)

chuadanga_upazila <- upazila %>%
  filter(District == "Chuadanga")

plot(chuadanga_upazila[1], main = "Chuadanga District Map")

# Upazila Map

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

# Three Upazila Map

library(dplyr)

subset_upazila <- upazila %>%
  filter(Upazila %in% c("Jiban Nagar", "Damurhuda", "Chuadanga Sadar"))

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