Show popupTable + popupGraph

[ViniciusBMoreira]

I made a lot of search trying to figure out if is possible to show in mapview both atributtes table and a graph for a point data.

It is possible?

[tim-salabim]

Can you provide a reproducible example?

[ViniciusBMoreira]

Of course. I want to do something like this:

library(mapview)
library(lattice)
library(sp)

zipcodes <- unique(breweries$zipcode)

pList <- lapply(zipcodes,
                function(i) {
                  xyplot(founded ~ number.of.types, data = breweries,
                         col = "blue",
                         subset = (zipcode == i),
                         type = 'p',
                         xlab = '', ylab = '')} #whatever graph
)

mapview(breweries,popup = popupGraph(pList) + popupTable(breweries,
                                                         zcol = c("brewery",
                                                                  "village",
                                                                  "founded")))