R/plot_somsp.R

In somspace: Spatial Analysis with Self-Organizing Maps

#' @importFrom grDevices colorRampPalette
#' @export
 
plot.somsp <- function(x, ...){
  colset_light_qual <- c("#8dd3c7",   "#fdb462", "#bebada", "#fb8072", 
                         "#80b1d3",  "#b3de69", "#ffed6f","#bc80bd",      
                         "#d9d9d9",  "#fccde5","#ccebc5", "#a1d6e2")
  palette_light_qual <- colorRampPalette(colset_light_qual)
  nnodes = max(x$summary$node)
  my_col = palette_light_qual(nnodes)
  plot(lat ~ lon, data = x$summary, pch = 15, col = my_col[node])
  maps::map("world", add = TRUE)
}