Author: Chi Zhang
Date: 2021-01-15

# Layout

#### Chi Zhang

#### 2021-01-15

    library(csmaps)
    library(ggplot2)
    library(data.table)
    library(magrittr)

## Layout options

We have 3 layout options for Norway map: default, split and insert Oslo.

For Oslo county map, we only have the default layout.

### Norway layout: default

    pd <- copy(csmaps::nor_municip_map_b2024_default_dt)
    q <- ggplot()
    q <- q + geom_polygon(data = pd, aes( x = long, y = lat, group = group),
                          color="black", fill="white", linewidth = 0.2)
    q <- q + theme_void()
    q <- q + coord_quickmap()
    q <- q + labs(title = "Default layout")
    q

### Norway layout: split

    pd <- copy(csmaps::nor_municip_map_b2024_split_dt)
    q <- ggplot()
    q <- q + geom_polygon(data = pd, aes( x = long, y = lat, group = group),
                          color="black", fill="white", linewidth = 0.2)
    q <- q + theme_void()
    q <- q + coord_quickmap()
    q <- q + labs(title = "Split layout")
    q

### Norway layout: insert oslo

    pd <- copy(csmaps::nor_municip_map_b2024_insert_oslo_dt)
    q <- ggplot()
    q <- q + geom_polygon(data = pd, aes( x = long, y = lat, group = group),
                          color="black", fill="white", linewidth = 0.2)

    # add title "Oslo"
    q <- q + annotate(
      "text",
      x = csmaps::nor_xxx_position_title_insert_oslo_b2024_insert_oslo_dt$long,
      y = csmaps::nor_xxx_position_title_insert_oslo_b2024_insert_oslo_dt$lat,
      label = "Oslo"
      )
    q <- q + theme_void()
    q <- q + coord_quickmap()
    q <- q + labs(title = "Insert Oslo layout")
    q

#### Oslo ward layout: default

    pd <- copy(csmaps::oslo_ward_map_b2024_default_dt)
    q <- ggplot()
    q <- q + geom_polygon(data = pd, aes(x = long, y = lat, group = group),
                          color="black", fill="white", linewidth = 0.2)
    q <- q + theme_void()
    q <- q + coord_quickmap()
    q <- q + labs(title = "Oslo wards")
    q