Я повторяю запрос ggmap с Google по списку городов. Используя аргумент стилей, я удаляю все элементы, кроме дорог.
См. Вывод изображения 1280x1280 ниже.
Существует ограничение на разрешение изображения (1280 x 1280), но я хочу напечатать города с более высоким разрешением (предпочтительно 4k x 4k).
Учитывая, что изображения на самом деле являются просто линиями, существует ли способ повысить их резкость в R, используя, скажем, массив векторов направления?
style <- c(c(feature = "administrative", visibility = "off"),
c("&style=", feature = "all", element = "labels", visibility = "off"),
c("&style=", feature = "road", color = "black"),
c("&style=", feature = "landscape", color = "0xffffff"),
c("&style=", feature = "water", color = "0xffffff"),
c("&style=", feature = "poi", color = "0xffffff"),
c("&style=", feature = "transit", color = "0xffffff"),
c("&style=", feature = "transit.line", weight = "0"),
c("&style=", feature = "transit.line", color = "black")
)
ggmap(get_googlemap(center = "Chengdu",
zoom = 10,
source = "google",
maptype = "roadmap",
#color = "bw",
size = c(640, 640),
format = "png8",
messaging = FALSE,
scale = 2,
style = style),
extent = "device")