This is a demo of an R package that uses MetricsGraphics to generate interactive time series plots.
d <- jsonlite::fromJSON("http://metricsgraphicsjs.org/data/ufo-sightings.json")
library(MetricsGraphics)
metricgraphics(
data = d,
x_accessor = 'year',
y_accessor = 'sightings',
width = 600,
height = 400,
title = 'UFO Sightings'
)