Я пытаюсь построить две карты рядом, используя sf::plot
, и мне не удается заставить его работать.Есть две проблемы: первая заключается в том, что графики создаются друг на друга, а не рядом, а вторая - в том, что я теряю легенду.
Вот пример и дополнительные пояснения.
library(sf)
library(dplyr)
# preparing the shapefile
nc <- st_read(system.file("gpkg/nc.gpkg", package="sf"), quiet = TRUE) %>%
select(AREA, PERIMETER) %>%
mutate(AREA = as.factor(AREA<median(AREA)))
Если я строю каждое поле независимо:
plot(nc[,1])
plot(nc[,2])
Оба изображения хороши, с легендой и всем, но я хочу, чтобы оба изображения были на одной панели.sf::plot
предлагает эту функцию, встроенную, как описано в https://r -spatial.github.io / sf / article / sf5.html # geometry-with-attribute-sf :
plot(nc)
Я теряю легенду, и они друг над другом, а не рядом.В ?plot
вы можете прочитать:
Для большего контроля над отдельными картами установите параметр mfrow с номиналом перед построением графика и постройте одиночные карты одну за другой.
Но когда я это сделаю, это не сработает:
par(mfrow=c(1,2))
plot(nc[,1])
plot(nc[,2])
par(mfrow=c(1,1))
Есть идеи, как построить 2 карты рядом с sf
?