Mapping plot_swatch output

[Lisark45]

Hi,

I'd like to overlay the output of plot_swatch to a geographical map.
However, M is referenced by grid, not lat and long, nor does it have a crs.

Is there some way of doing this please?

I'm working from the vignette example;

data(africa)
comm <- africa$comm
tree <- africa$phylo
poly <- africa$polys
mypd <- PD(comm, tree)
M <- merge(poly, data.frame(grids=names(mypd), pd=mypd), by="grids")
M <- M[!is.na(M@data$pd),]
head(M)

par(mar=rep(0,4))
plot_swatch(M, values = M$pd, border=NA, leg=3,
            col = hcl.colors(n=20, palette = "Blue-Red 3", rev=FALSE))