Catatan Pertama yang Memuat Kode

Ini adalah catatan pertama saya yang memuat kode R. Kode ini dimaksudkan untuk membuat peta statis yang dapat ditampilkan di laman daring.

Adakalanya kita perlu menampilkan peta di artikel atau halaman situs kita. Dengan R kita dapat membuatnya dengan kemungkinan untuk menampilkan keterangan yang kita harapkan.

library(sf)
library(ggplot2)
library(rnaturalearth)
library(rnaturalearthdata)

# Ambil data negara
indonesia <- ne_countries(scale = "medium", returnclass = "sf") |>
  subset(admin %in% c("Indonesia", "East Timor", "Brunei", "Malaysia"))

# Titik FK Universitas Mataram: -8.5830 S, 116.1006 E
fk_unram <- data.frame(
  name = "FK Unram",
  lon = 116.1006,
  lat = -8.5830
)
fk_unram_sf <- st_as_sf(fk_unram, coords = c("lon", "lat"), crs = 4326)

# Plot peta
ggplot() +
  geom_sf(data = indonesia, fill = "lightblue", color = "black") +
  geom_sf(data = fk_unram_sf, color = "red", size = 1) +
  geom_text(data = fk_unram, aes(x = lon, y = lat, label = name),
            color = "red", nudge_y = 1, size = 4) +
  theme_minimal() +
  labs(title = "Peta Indonesia dengan Penanda FK Unram",
       x = NULL, y = NULL)

Peta Indonesia dengan penanda Fakultas Kedokteran Universitas Mataram