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])

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

subset_district <- district %>%
  filter(District %in% c("Kurigram", "Sherpur", "Mymensingh", "Netrakona", "Habiganj", "Maulvibazar", "Sunamganj", "Sylhet", "Bandarban", "Cox's Bazar", "Khagrachhari", "Rangamati", "Chittagong"))

plot(subset_district[1], main = "Malaria affeced districts of Bangladesh")