I discovered sunburstR several weeks ago. I found it very cool. When exploring this finance complaints data base, I want to know how the complaints are divided into different products, sub_products. Are the issues and sub-issues related to the products ?

library(data.table)
library(devtools)
library(digest)
library(sunburstR)

data=data.table(read.csv("consumer_complaints.csv",sep=","))

d1=data.table(product=gsub("-","_",as.character(data$product)),
              sub_product=gsub("-","_",as.character(data$sub_product)),
              issue=gsub("-","_",as.character(data$issue)),
              sub_issue=gsub("-","_",as.character(data$sub_issue)),f=1)

d1$label=paste(d1$product,d1$sub_product,d1$issue,d1$sub_issue,sep="-")
agg=aggregate(f~label,data=d1,sum)
sb=sunburst(agg,legend = list(w=200,h=20))
sb
Legend

It seems that this sunburst gives us quite a clear global vision. And the issues are related to products.