Я пытаюсь сделать серию карт с координатами, нанесенными в виде пронумерованных точек, и легендой с соответствующими адресами. До сих пор я не смог найти способ нумерации точек.
Вот пример структуры данных:
x <- c(10.88922, 11.23873, 10.85194, 10.07837, 9.97323)
y <- c(49.71979, 50.12579, 49.4208, 50.16197, 49.9772)
address <- c('Aischer Hauptstrasse 5', 'Gewerbegebiet 4', 'Marktplatz 1-2', 'Wittelsbacher Turm 1', 'Schweinfurter Strasse 9')
df <- data.frame(x,y,address)
Этот код создает карту, близкую к тому, что яхочу добиться. Но точки имеют цветовую кодировку.
mapdf <- st_as_sf(df, coords = c("x", "y"), crs = 4326)
map <- mapView(mapdf, burst = TRUE)
mapshot(map, file = "example.png")
Есть ли способ иметь пронумерованные точки?