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)
Rangpur <- division %>%
  filter(Division =="Rangpur")

plot(Rangpur[1])


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

plot(Rangpur_division[1])


Panchagarh_district <- district %>%
  filter(District =="Panchagarh")

plot(Panchagarh_district[1], col = "pink", border = "green")


Panchagarh_upazila <- upazila%>%
  filter(District == "Panchagarh")

plot(Panchagarh_upazila[1])


chittagong_upazila <- upazila %>%
  filter(Upazila %in% c("Pancharh Sadar", "Tetulia", "Atwari"))

plot(Panchagarh_upazila[1])

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCmxpYnJhcnkoYmFuZ2xhZGVzaCkNCg0KY291bnRyeSA8LSBnZXRfbWFwKCJjb3VudHJ5IikNCmRpdmlzaW9uIDwtIGdldF9tYXAoImRpdmlzaW9uIikNCmRpc3RyaWN0IDwtIGdldF9tYXAoImRpc3RyaWN0IikNCnVwYXppbGEgPC0gZ2V0X21hcCgidXBhemlsYSIpDQp1bmlvbiA8LSBnZXRfbWFwKCJ1bmlvbiIpDQoNCg0KcGxvdChjb3VudHJ5WzFdKQ0KcGxvdChkaXZpc2lvblsxXSkNCnBsb3QoZGlzdHJpY3RbMV0pDQoNCmBgYA0KYGBge3J9DQpsaWJyYXJ5KGRwbHlyKQ0KUmFuZ3B1ciA8LSBkaXZpc2lvbiAlPiUNCiAgZmlsdGVyKERpdmlzaW9uID09IlJhbmdwdXIiKQ0KDQpwbG90KFJhbmdwdXJbMV0pDQoNClJhbmdwdXJfZGl2aXNpb24gPC0gZGlzdHJpY3QgJT4lDQogIGZpbHRlcihEaXZpc2lvbiA9PSJSYW5ncHVyIikNCg0KcGxvdChSYW5ncHVyX2RpdmlzaW9uWzFdKQ0KDQpQYW5jaGFnYXJoX2Rpc3RyaWN0IDwtIGRpc3RyaWN0ICU+JQ0KICBmaWx0ZXIoRGlzdHJpY3QgPT0iUGFuY2hhZ2FyaCIpDQoNCnBsb3QoUGFuY2hhZ2FyaF9kaXN0cmljdFsxXSwgY29sID0gInBpbmsiLCBib3JkZXIgPSAiZ3JlZW4iKQ0KDQpQYW5jaGFnYXJoX3VwYXppbGEgPC0gdXBhemlsYSU+JQ0KICBmaWx0ZXIoRGlzdHJpY3QgPT0gIlBhbmNoYWdhcmgiKQ0KDQpwbG90KFBhbmNoYWdhcmhfdXBhemlsYVsxXSkNCg0KY2hpdHRhZ29uZ191cGF6aWxhIDwtIHVwYXppbGEgJT4lDQogIGZpbHRlcihVcGF6aWxhICVpbiUgYygiUGFuY2hhcmggU2FkYXIiLCAiVGV0dWxpYSIsICJBdHdhcmkiKSkNCg0KcGxvdChQYW5jaGFnYXJoX3VwYXppbGFbMV0pDQpgYGANCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg0KDQoNCg==