highcharter (version 0.2.0)

hc_add_series_map: Shorcut for create map

Description

This function helps to create higcharts treemaps from treemap objects from the package treemap.

Usage

hc_add_series_map(hc, map, df, value, joinBy, ...)

hc_add_serie_map(hc, map, df, value, joinBy, ...)

Arguments

hc

A highchart htmlwidget object.

map

A list object loaded from a geojson file.

df

A data.frame object with data to chart. Code region and value are required.

value

A string value with the name of the column to chart.

joinBy

What property to join the map and df

...

Aditional shared arguments for the data series (http://api.highcharts.com/highcharts#series).

Examples

library("dplyr")
library("viridisLite")

data("USArrests", package = "datasets")
data("usgeojson")

USArrests <- USArrests %>% 
  mutate(state = rownames(.))

n <- 4
colstops <- data.frame(q = 0:n/n,
                       c = substring(viridis(n + 1, option = "A"), 0, 7)) %>% 
list.parse2()

highchart() %>% 
  hc_title(text = "Violent Crime Rates by US State") %>% 
  hc_subtitle(text = "Source: USArrests data") %>% 
  hc_add_series_map(usgeojson, USArrests, name = "Murder arrests (per 100,000)",
                    value = "Murder", joinBy = c("woename", "state"),
                    dataLabels = list(enabled = TRUE,
                                      format = '{point.properties.postalcode}')) %>% 
  hc_colorAxis(stops = colstops) %>% 
  hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE) 

library("viridisLite")
library("dplyr")
data(unemployment)
data(uscountygeojson)
 
dclass <- data_frame(from = seq(0, 10, by = 2),
                     to = c(seq(2, 10, by = 2), 50),
                     color = substring(viridis(length(from), option = "C"), 0, 7))
 dclass <- list.parse3(dclass)
highchart() %>% 
  hc_title(text = "US Counties unemployment rates, April 2015") %>% 
  hc_add_series_map(uscountygeojson, unemployment,
                    value = "value", joinBy = "code") %>%
  hc_colorAxis(dataClasses = dclass) %>%
  hc_legend(layout = "vertical", align = "right",
            floating = TRUE, valueDecimals = 0,
            valueSuffix = "%") %>%
  hc_mapNavigation(enabled = TRUE)