Config

library(dplyr)
library(rnaturalearth)
library(ggplot2)
library(glue)

Data

Data from Natural Earth.

countries <- ne_countries(scale = 110, returnclass = "sf")

Map

countries |> 
  ggplot() +
  geom_sf(aes(fill = if_else(sovereignt == "India", sovereignt, "Outdia")), 
          color = "gold3") +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) +
  scale_fill_manual(name = "", 
                    values = list("India" = "indianred2",
                                  "Outdia" = "gold1")) +
  coord_sf(crs = "+proj=eqearth") +
  labs(title = "भारत",
       caption = glue("https://r.iresmi.net/ - {Sys.Date()}
                      data: Natural Earth")) +
  theme_void() +
  theme(plot.title = element_text(color = "indianred3", 
                                  size = 16,
                                  face = "bold"),
        plot.caption = element_text(size = 6, 
                                    color = "darkgrey"),
        plot.margin = unit(c(1, 2, 1, 2), "mm"))

Map of India vs the rest of the world — Figure 1: India/Outdia

---
title: "India"
description: "Day 22 of 30DayMapChallenge. 2 colors"
author: "Michaël"
date: "2024-11-22T10:00:00"
date-modified: last-modified
categories:
  - R
  - spatial
  - datavisualization
  - 30DayMapChallenge
draft: false
freeze: true
editor_options:
  chunk_output_type: console
chunk_output_type: console
execute:
  eval: true
---

```{r}
#| label: preview
#| echo: false
#| fig-cap: "Holi 2016-01 -- CC-BY-NC-ND by Rajesh Pamnani"
#| fig-alt: "A photo of Holi festivities in India"
#| fig-link: https://www.flickr.com/photos/pamnani/25951868311/
#| class-output: "preview-image"
#| out-width: "100%"

knitr::include_graphics("images/25951868311_fb8bd573b8_c.jpg")
```

Day 22 of [30DayMapChallenge](https://30daymapchallenge.com/): « 2 colours » ([previously](/#category=30DayMapChallenge)).

Just a joke...

# Config

```{r}
#| label: setup

library(dplyr)
library(rnaturalearth)
library(ggplot2)
library(glue)
```

# Data

Data from [Natural Earth](https://www.naturalearthdata.com/).

```{r}
#| label: data

countries <- ne_countries(scale = 110, returnclass = "sf")
```

# Map

```{r}
#| label: fig-map
#| fig-cap: "India/Outdia"
#| fig-alt: "Map of India vs the rest of the world"
#| out-width: "100%"

countries |> 
  ggplot() +
  geom_sf(aes(fill = if_else(sovereignt == "India", sovereignt, "Outdia")), 
          color = "gold3") +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) +
  scale_fill_manual(name = "", 
                    values = list("India" = "indianred2",
                                  "Outdia" = "gold1")) +
  coord_sf(crs = "+proj=eqearth") +
  labs(title = "भारत",
       caption = glue("https://r.iresmi.net/ - {Sys.Date()}
                      data: Natural Earth")) +
  theme_void() +
  theme(plot.title = element_text(color = "indianred3", 
                                  size = 16,
                                  face = "bold"),
        plot.caption = element_text(size = 6, 
                                    color = "darkgrey"),
        plot.margin = unit(c(1, 2, 1, 2), "mm"))
```