data<-read.csv(file="https://gist.githubusercontent.com/kerryrodden/7090426/raw/8fce22c9e21711c757ee8a0df7dba5a42dea0d9c/visit-sequences.csv",
header = FALSE, stringsAsFactors = FALSE
)
seq<-data[-13632,1]
freq<-data[-13632,2]
json<-jsonSeqFreq(seq, freq)
D3Sunburst(json, file_out="sunburst.html")
Run the code above in your browser using DataLab