# Get Data
library(RCurl)
f <- getURL("https://raw.github.com/benjh33/benjh33.github.io/cd768434d02b39b01615d03f04a68b0fe33eb76e/_data/data_files/electric.dat")
d <- read.table(text = f, header = T)
d <- d[, -grep("Supplement", names(d))]
# Create Chart
chart <- rCharts$new()
chart$setLib("//benjh33.github.io/rchart_plugins/scatter_matrix")
chart$set(
  group = "City", 
  data = d, 
  filter = "Grade", 
  height = 700, 
  width = 700, 
  opacity = 0.4, 
  point_size = 4, 
  margin = 10
)
chart