highcharter (version 0.1.0)

hc_add_serie_scatter: Shorcut for create scatter plots

Description

This function helps to create scatter plot from two numerics vectors. Options argumets like size, color and label for points are added.

Usage

hc_add_serie_scatter(hc, x, y, z = NULL, color = NULL, label = NULL,
  showInLegend = FALSE, viridis.option = "D", ...)

Arguments

hc

A highchart htmlwidget object.

x

A numeric vector.

y

A numeric vector. Same length of x.

z

A numeric vector for size. Same length of x.

color

A vector to color the points.

label

A vector to put names in the dots if you enable the datalabels.

showInLegend

Logical value to show or not the data in the legend box.

viridis.option

Palette to use in case the color. Argument can not be NULL in the case of use color argument. Options are A, B, C, D.

...

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

Examples

require("dplyr")

hc <- highchart() %>% 
  hc_title(text = "Motor Trend Car Road Tests") %>% 
  hc_xAxis(title = list(text = "Weight")) %>% 
  hc_yAxis(title = list(text = "Miles/gallon"))
   
hc_add_serie_scatter(hc, mtcars$wt, mtcars$mpg)

hc_add_serie_scatter(hc, mtcars$wt, mtcars$mpg,
                     mtcars$drat)
                     
hc_add_serie_scatter(hc, mtcars$wt, mtcars$mpg,
                     mtcars$drat, mtcars$cyl)
                     
hc_add_serie_scatter(hc, mtcars$wt, mtcars$mpg,
                     mtcars$drat, mtcars$hp,
                     rownames(mtcars),
                     dataLabels = list(
                       enabled = TRUE,
                       format = "{point.label}"
                       )) %>% 
hc_chart(zoomType = "xy") %>% 
hc_tooltip(useHTML = TRUE,
           headerFormat = "<table>",
           pointFormat = paste("<tr><th colspan=\"2\"><h3>{point.label}</h3></th></tr>",
                               "<tr><th>Weight</th><td>{point.x} lb/1000</td></tr>",
                               "<tr><th>MPG</th><td>{point.y} mpg</td></tr>",
                               "<tr><th>Drat</th><td>{point.z} </td></tr>",
                               "<tr><th>HP</th><td>{point.valuecolor} hp</td></tr>"),
           footerFormat = "</table>")