Я хотел бы создать карту мира, где каждая страна заштрихована на основе определенной переменной c.
У меня есть простые геометрические элементы (в одном столбце) для всех стран в моем списке, используя функцию ne_countries()
из пакета rnaturalearth
.
Затем я объединил эти геометрии с моими исходными данными для каждой страны и преобразовал новый фрейм данных в объект sf.
Теперь мой вопрос заключается в том, что мне нужно делать дальше с точки зрения sf фрейм данных. Нужно ли преобразовывать геометрию многоугольника в координаты широта / долгота, прежде чем передать его функции листовки? Я попытался передать его как есть, т.е. используя геометрию, возвращенную из ne_countries()
, но ничего не возвращается. Есть ли другой способ получить данные формы для моего списка стран (всего 183), которые я затем легко могу передать функции листовки и затем соответствующим образом закрасить?
Пример моего кода приведен ниже:
DATA = my data set which is simply 2 columns: Country Name, Variable
Variable is the what I would like to plot on the world map with different shadings based on the value.
world_map = ne_countries(scale = 50, returnclass = 'sf')
world_geometry = world_map %>%
select(geometry)
ncov_data_geometry = inner_join(DATA, world_geometry)
ncov_data_geometry = st_as_sf(ncov_data_geometry)
ncov_data_geometry %>%
leaflet() %>%
addTiles() %>%
addPolygons(weight = 0, fillOpacity = 0.5)