Sparklines

This is to test one Sparkline line chart:

library(sparkline)
x = rnorm(20)
sparkline(x)

Here is a bar chart:

sparkline(x, type = 'bar')