R Notebook

library(bangladesh)
library(dplyr)
library(sf)

# Load the district shapefile
district <- get_map("district")

# Filter and transform
flood_zone <- district %>%
  filter(District %in% c("Dhaka")) 

# tmap plot
tm_shape(flood_zone) +
  tm_polygons(
    col = "yellow",
    border.col = "black"
  ) +
  tm_text("District", size = 0.8) +
  tm_title("Flood-Prone Districts") +
  tm_compass(position = c("left", "bottom"), type = "8star", size = 5) +
tm_scalebar(position = c("right", "bottom"), text.size = 0.7)