require('rCharts')
cars <- read.csv('https://syntagmatic.github.io/parallel-coordinates/data/cars.csv')
names(cars) <- gsub('\\.+', "_", names(cars))
p1 <- rCharts$new()
p1$field('lib', 'parcoords')
p1$set(
  data = toJSONArray(cars, json = F), 
  colorby = 'economy_mpg_', 
  range = range(cars$economy_mpg_),
  colors = c('steelblue', 'brown'),
  padding = list(top = 24, left = 0, bottom = 12, right = 200),
  width = 800,
  height = 400
)
p1