Quickly creates a generic map using ggplot2, sf and rnaturalearth

Create PHL Map

library("ggplot2")
library("ggthemes")
theme_set(theme_map())
library("sf")
library("rnaturalearth")
library("rnaturalearthdata")

world <- ne_countries(scale = "medium", returnclass = "sf")

ctry <- world[world$name == "Philippines", ]

ggplot(data = ctry) +
  geom_sf() +
  labs(caption = "Data source: Natural Earth Data")