R Notebook

library(tmap)

library(tmap)
library(bangladesh)
division <- get_map("division")

tm_shape(division) +
  tm_polygons()

tm_shape(division) +
  tm_polygons(fill = "Division")

tm_shape(division) +
  tm_polygons(fill = "Division") +
  tm_title("Divisions of Bangladesh")

tm_shape(division) +
  tm_polygons(fill = "Division") +
  tm_title("Administrative Divisions of Bangladesh") +
  tm_text("Division")

tm_shape(division) +
  tm_polygons(fill = "Division") +
  tm_title("Administrative Divisions of Bangladesh") +
  tm_text("Division") +
  tm_compass(position = c("left", "bottom"), type = "8star", size = 5) +
  tm_scalebar(position = c("right", "bottom"), text.size = 0.7)

tm_shape(division) +
  tm_polygons(fill = "Division") +
  tm_title("Administrative Divisions of Bangladesh") +
  tm_text("Division") +
  tm_compass(position = c("left", "bottom"), 
type = "8star", size = 5)

tm_shape(division) +
  tm_polygons(fill = "Division") +
  tm_title("Administrative Divisions of Bangladesh") +
  tm_text("Division") +
  tm_compass(position = c("left", "bottom"), type = "8star", size = 5) +
  tm_scalebar(position = c("right", "bottom"), text.size = 0.7)

tm_shape(division) +
  tm_polygons(fill = "Division") +
  tm_title("Administrative Divisions of Bangladesh") +
  tm_text("Division") +
  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")

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

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

# Filter and transform
flood_zone <- district %>%
  filter(District %in% c("Khulna", "Satkhira"))
# tmap plot
tm_shape(flood_zone) +
  tm_polygons(
    col = "red",
    border.col = "black"
  ) +
  tm_text("District", size = 0.8) +
  tm_title("Flood-Prone Districts (Khulna & Satkhira)") +
  tm_compass(position = c("left", "bottom"), type = "8star", size = 5) +

Error: Incomplete expression: tm_shape(flood_zone) +
  tm_polygons(
    col = "red",
    border.col = "black"
  ) +
  tm_text("District", size = 0.8) +
  tm_title("Flood-Prone Districts (Khulna & Satkhira)") +
  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")

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

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

# Filter and transform
flood_zone <- district %>%
  filter(District %in% c("Khulna", "Satkhira")) 
# tmap plot
tm_shape(flood_zone) +
  tm_polygons(
    col = "red",
    border.col = "black"
  ) +
  tm_text("District", size = 0.8) +
  tm_title("Flood-Prone Districts (Khulna & Satkhira)") +
  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")

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

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

# Filter and transform
flood_zone <- district %>%
  filter(District %in% c("Khulna", "Satkhira")) %>%
  st_transform(32646)
# tmap plot
tm_shape(flood_zone) +
  tm_polygons(
    col = "red",
    border.col = "black"
  ) +
  tm_text("District", size = 0.8) +
  tm_title("Flood-Prone Districts (Khulna & Satkhira)") +
  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")