如何为tmap中颜色、形状对应的不同字段设置独立图例标题？

在tmap里，tm_dots()的title参数支持传入命名向量，直接给颜色（col）和形状（shape）对应的图例分别指定标题即可，修改后的代码如下：

library(tidyverse)
library(sf)
library(tmap)

data <- data.frame(sample = c(1:5),
                   class = as.character(c(1:5)),
                   method = c("m1", "m2", "m2", "m1", "m2"),
                   long = seq(18.0,18.4,0.1),
                   lat = c(-34, -34, -33.5, -35, -35)) %>%
  st_as_sf(coords = c("long", "lat"), crs = 4326)

tm_shape(data) +
  tm_dots(col = "class", shape ="method", size = 2, 
          title = c(col = "Class type", shape = "Sampling method")) 

运行这段代码后，颜色字段对应的图例标题会显示为「Class type」，形状字段对应的图例标题会显示为「Sampling method」，实现了两个图例的独立标题设置。

内容的提问来源于stack exchange，提问作者aterhorst