R Notebook

library(bangladesh)

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

plot(division[1],main = "Division Map Of 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

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

plot(Barisal_districts[1], main = "Barisal Division Map")

library(dplyr)

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

library(dplyr)

jhalokati_upazila <- upazila %>%
  filter(District == "Jhalokati")

plot(jhalokati_upazila[1], main = "Jhalokati District Map")

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

library(dplyr)

subset_upazila <- upazila %>% filter(Upazila %in% c("Jhalokati Sadar", "Nalchity")) 

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