R Notebook

library(bangladesh)

Data

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

plot(country[1], border = "red", col = "darkgreen", main = "Bangladesh Map")

plot(division[1], border = "red", 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

rangpur <- division %>%
  filter(Division =="Rangpur")

plot(rangpur[1], main = " My Division map of rangpur", border = "red", col = "pink")

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

plot(rangpur_districts[1], main = "District map of rangpur", border = "red")

rangpur_districts <- district %>%
  filter(District =="Gaibandha")

plot(rangpur_districts[1], main = "My District Map of Gaibandha", border = "red", col = "purple")

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

plot(gaibandha_upazila[1], main = "Upazila Map Of Gaibandha", border = "red")

gaibandha_upazila <- upazila %>%
  filter(Upazila %in% c("Saghatta", "Fulchhari", "Gobindagonj","Palashbari"))

plot(gaibandha_upazila[1],
     main = "Three Upazila Map of Gaibandha",
     border = "red",
     col = c("pink", "orange", "blue"))

gaibandha_upazila <- upazila %>%
  filter(Upazila %in% c("Saghatta"))

plot(gaibandha_upazila[1],
     main = "My Upazila Map Saghatta",
     col = "skyblue",
     border = "red")