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(country[1])

plot(division[1])

plot(district[1])

plot(upazila[1])

plot(union[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

rangpur_districts <- district %>%
  filter(Division == "Rangpur")

plot(rangpur_districts[1],
     main = "District Map of Rangpur",
     border = "red")

gaibandha_upazila <- upazila %>%
  filter(District == "Gaibandha")

plot(gaibandha_upazila[1],
     border = "red",
     main = "Upazila Map of gaibandha")

subset_upazila <- upazila %>%
  filter(Upazila %in% c("Saghatta", "Fulchhari"))

plot(subset_upazila[1],
main = "Upazila Map of Gaibandha -05",
border = "red",
col = c("green", "Blue"))

saghatta_union <- union %>%
  filter(Upazila == "Saghatta")

plot(saghatta_union[1],
     main = "Union Map of saghatta Upazila",
     border = "red")

subset_union <- union %>%
  filter(Union %in% c("Kamaler Para"))
plot(subset_union[1],
     main = "Kamaler Para Union Map",
     col = "Blue",
     border = "red")