library(bangladesh)
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

## 
## 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
division <- get_map("division")
district <- get_map("district")
upazila <- get_map("upazila")
subset_division <- division %>%
  filter (Division %in% c("Dhaka"))
subset_district <- district %>%
  filter(District %in% c("Munshiganj"))
subset_upazila <- upazila %>%
  filter(Upazila %in% c("Gendaria", "Sutrapur", "Dhanmondi"))
plot(division[1])

plot(subset_division[1], col = "red", border = "green", main = "My Division - Dhaka")

plot(district[1])

plot(subset_district[1], col = "pink", border = "yellow", main = "My District - Munshiganj")

plot(upazila[1])

plot(subset_upazila[1], main = " Gendaria, Sutrapur, Dhanmondi")