manual_legend_tmap3.md

library(tmap)
#> Warning: multiple methods tables found for 'area'
data(metro)
metro$group = as.factor(sample(1:5, size = nrow(metro), replace = TRUE))

# two legends
tm_shape(metro) +
  tm_symbols(col = "group", shape = "group")

# one legend
tm_shape(metro) +
  tm_symbols(col = "group", shape = "group", 
             legend.col.show = FALSE, legend.shape.show = FALSE) +
  tm_add_legend(type = "symbol", col = RColorBrewer::brewer.pal(5, "Set3"),
                shape = 21:25, labels = sort(unique(metro$group)))

^{Created on 2022-07-05 by the reprex package (v2.0.1)}

tmap4:

data(metro)
metro$group = as.factor(sample(1:5, size = nrow(metro), replace = TRUE))

tm_shape(metro) +
tm_symbols(fill = "group", 
   fill.scale = tm_scale_categorical(values = "brewer.set3"),
   fill.legend = tm_legend(position = tm_pos_in("right", "top")),
   shape = "group", 
   shape.legend = tm_legend_combine("fill"))

^{Created on 2022-10-04 with reprex v2.0.2}