How do I manipulate legend boxes in r t_map?

Question

Consider the following example:

library(tmap)
data("World")

tm_shape(World) +
  tm_polygons("HPI")

This gives me the followi