Можете ли вы переключиться с tmap на буклет в R? - PullRequest
Новая
       72

Можете ли вы переключиться с tmap на буклет в R?

1 голос
/ 19 июня 2020

Я пытаюсь проверить, можете ли вы создать карту tmap, преобразовать ее в карту-листок, а затем добавить элементы буклета.

Например: следующая ошибка:

«Ошибка при отправке (карта, метод, листовка = {: недопустимый параметр карты»

Итак, я уверен, что это проблема с моей стороны или вы просто не можете сделать то, что я пытаюсь сделать. Это не такая уж большая проблема, но я считаю, что некоторые вещи проще делать в tmap, а другие - в буклетах.

1 Ответ

2 голосов
/ 19 июня 2020

Используя qtm из пакета tmap, я могу создать базовый c сюжет боевых мест:

enter image description here

library(tidyverse)
library(tmap)
library(leaflet)
library(leaflet.extras)
library(sp)

GeoBattleData_YZ <- read.csv("GeoBattleData_YZ.csv") # from https://doi.org/10.7910/DVN/1KCCX2


battle_dat<-GeoBattleData_YZ %>% 
  select(war,atkr,defr,date,long,lat,dist_att,dist_def,duration) %>% 
  mutate(year=substr(date,1,4))


battle_dat<-battle_dat[!is.na(battle_dat$long),]

battle_dat<-SpatialPointsDataFrame(coords = battle_dat[,c(5:6)],
                                   data = battle_dat,
                                   proj4string = CRS("+init=EPSG:4326"))

tm <-qtm(battle_dat, 
         symbols.col = 'duration')

tm

map<-tmap_leaflet(tm) %>%

  addDrawToolbar(
    targetGroup='draw',
    polylineOptions=FALSE,
    markerOptions = FALSE,
    circleOptions = T,
    polygonOptions=F,
    singleFeature=T,
    circleMarkerOptions=F)
map

Ваш Например, я думаю, что в исходной строке tm_shape (dat) следовало вызвать battle_dat, а не dat.

...