Highcharter - Line Plots

Line plots a very common type of plots specially in finance domain. These plots are useful for viewing the variation in a numerical attribute over a time period.

What is highcharter?

Highcharter is a R wrapper for Highcharts javascript library and its modules. Highcharts is very flexible and customizable javascript charting library and it has a great and powerful API.

Line plot

Line plots a very common type of plots specially in finance domain. These plots are useful for viewing the variation in a numerical attribute over a time period.

Data View

We are going to use this dataset for plotting different variations of the scatterplots

library(tidyverse)
library(highcharter)
library(DT)

data(economics_long, package = "ggplot2")

economics_long2 <- dplyr::filter(economics_long, variable %in% c("pop", "uempmed", "unemploy"))

DT::datatable(economics_long2)

Show 102550100 entries

Search:

	date	variable	value	value01
1	1967-07-01	pop	198712	0
2	1967-08-01	pop	198911	0.00163529885435811
3	1967-09-01	pop	199113	0.00329525045526433
4	1967-10-01	pop	199311	0.00492233172743973
5	1967-11-01	pop	199498	0.00645901959560539
6	1967-12-01	pop	199657	0.00776561516265533
7	1968-01-01	pop	199808	0.00900647007224364
8	1968-02-01	pop	199920	0.0099268392767065
9	1968-03-01	pop	200056	0.0110444304535542
10	1968-04-01	pop	200208	0.0122935029453253

Showing 1 to 10 of 1,722 entries

Previous12345…173Next

Default Line Plot

hchart(
  dplyr::filter(economics_long, variable %in% c("unemploy")),
  "line",
  hcaes(x=date,
        y=value01)
)

Changing the color of the line

hchart(
  dplyr::filter(economics_long, variable %in% c("unemploy")),
  "line",
  hcaes(x=date,
        y=value01),
  color = "#fca311"
)

Plotting two numerical variables over time

hchart(
  dplyr::filter(economics_long, variable %in% c("pop","unemploy")),
  "line",
  hcaes(x=date,
        y=value01,
        group = variable),
  color = c("#00296b","#fca311")
)

Plotting three numerical variables over time

hchart(
  dplyr::filter(economics_long, variable %in% c("pop","unemploy", "uempmed")),
  "line",
  hcaes(x=date,
        y=value01,
        group = variable),
  color = c("#00296b","#fca311","#177e89")
)

Legend - Horizontal Bottom Right

hchart(
  dplyr::filter(economics_long, variable %in% c("pop","unemploy", "uempmed")),
  "line",
  hcaes(x=date,
        y=value01,
        group = variable),
  color = c("#00296b","#fca311","#177e89")
) %>%
  hc_legend(
    layout = "horizontal",
    align = "right",
    verticalAlign = "bottom"
    
  )

Legend - Horizontal Bottom Right

hchart(
  dplyr::filter(economics_long, variable %in% c("pop","unemploy", "uempmed")),
  "line",
  hcaes(x=date,
        y=value01,
        group = variable),
  color = c("#00296b","#fca311","#177e89")
) %>%
  hc_legend(
    layout = "horizontal",
    align = "left",
    verticalAlign = "bottom"
    
  )

Legend - Horizontal Top Right

hchart(
  dplyr::filter(economics_long, variable %in% c("pop","unemploy", "uempmed")),
  "line",
  hcaes(x=date,
        y=value01,
        group = variable),
  color = c("#00296b","#00509d","#fdc500")
) %>%
  hc_legend(
    layout = "horizontal",
    align = "right",
    verticalAlign = "top"
    
  )

Legend - Horizontal Top Left

hchart(
  dplyr::filter(economics_long, variable %in% c("pop","unemploy", "uempmed")),
  "line",
  hcaes(x=date,
        y=value01,
        group = variable),
  color = c("#00296b","#00509d","#fdc500")
) %>%
  hc_legend(
    layout = "horizontal",
    align = "left",
    verticalAlign = "top"
    
  )

Legend - Vertical Top Right

hchart(
  dplyr::filter(economics_long, variable %in% c("pop","unemploy", "uempmed")),
  "line",
  hcaes(x=date,
        y=value01,
        group = variable),
  color = c("#00296b","#00509d","#fdc500")
) %>%
  hc_legend(
    layout = "vertical",
    align = "right",
    verticalAlign = "top"
    
  )

Plotting more numerical variables over time

hchart(
  economics_long,
  "line",
  hcaes(x=date,
        y=value01,
        group = variable),
  color = c("#00296b","#fca311","#177e89", "#8f2d56", "#6d597a")
)

Credits

• Thanks to Joshua Kunst for creating such a wonderful package for visualization
• Thanks to the whole team at RStudio and the whole R community