你能从tmap切换到R中的传单吗？

我正在尝试查看是否可以创建tmap贴图，将其转换为传单贴图，然后添加传单特征

例如：

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


battle_dat<-battle_dat %>% 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<-tm_shape(dat) + tm_dots(col="duration") # make tmap

tm<-tmap_leaflet(tm) # convert to leaflet

tm %>%

addDrawToolbar(

targetGroup='draw',

polylineOptions=FALSE,

markerOptions = FALSE,

circleOptions = T,

polygonOptions=F,

singleFeature=T,

circleMarkerOptions=F)

战斗日百分比
突变（年份=子序列（日期，1,4））
battle_dat使用tmap软件包中的qtm，我能够绘制战场的基本图：


库（tidyverse）
图书馆（tmap）
图书馆（单张）
图书馆（传单.附加）
图书馆（sp）
地理战数据_YZ%
突变（年份=子序列（日期，1,4））
这真管用！你知道为什么它与
qtm一起工作而不在我的示例中吗？（忽略我的dat和battle_dat输入错误）我不确定，非常抱歉。猜测：也许传递给tm_shape的更多参数会让你们到达相同的位置。我总是从一个qtm开始，然后在tmap中或当我传递到传单时从那里构建层。
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