R Notebook

library(bangladesh)

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

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_upazila <- district %>%
  filter(District %in% c("Bandarban", "Rangamati", "Khagrachhari" ))

plot(subset_upazila[1])

library(tmap)

tm_shape(subset_upazila[1]) +
  tm_polygons(fill = "green") +
  tm_title("Malaria affected zone of Bangladesh")

## [plot mode] fit legend/component: Some legend items or map compoments do not
## fit well, and are therefore rescaled.
## ℹ Set the tmap option `component.autoscale = FALSE` to disable rescaling.

ttmp()

## ℹ tmap modes "plot" - "view"
## ℹ toggle with `tmap::ttm()`

tm_shape(subset_upazila[1]) +
  tm_polygons(fill = "green") +
  tm_title("Good Map") +
  tm_text("District") +
  tm_compass(position = c("left", "bottom"), type = "8star", size = 5) +
  tm_scalebar(position = c("right", "bottom"), text.size = 0.7)+
  tm_grid(lines = TRUE, labels.size = 0.8, col = "gray90")

ttmp()

## ℹ tmap modes "plot" - "view"