title: “Class 4” output: html_document: df_print: paged —

Load Libraries

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

Load All Map Data

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

Filter Areas

dhaka_div <- division %>% filter(Division == "Dhaka")
gazipur <- district %>% filter(District == "Gazipur")
subset_upazila <- upazila %>% filter(Upazila == "Sreepur")

country

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

division

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

Division

plot(dhaka_div[1], main = "Dhaka Division")

District

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

District

plot(gazipur[1], main = "Gazipur District")

upazila

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

upazila

plot(subset_upazila[1], main = "Sreepur Upazila")