Creating piecharts with tm_bubbles() from tmap package in R

Question

I want to create a piechart using tm_bubbles(), or more generally, using the tmap package in R. Here is the code I have so far:

library(tmap)
library(spData)