dout <- map_ids(d3po::maps$asia$japan)
dout$value <- ifelse(dout$id == "TK", 1L, NA)
dout$color <- ifelse(dout$id == "TK", "#bd0029", NA)
d3po(dout) %>%
po_geomap(
daes(
group = id, color = color, size = value,
tooltip = name
),
map = d3po::maps$asia$japan
) %>%
po_title("Pokemon was created in the Japanese city of Tokyo")
Run the code above in your browser using DataLab