library(jsonlite)
train<-fromJSON("../input/train.json",flatten=TRUE)
diff_cuisines<-unique(train$cuisine)
 ftable<-table(train$cuisine)
 barplot(ftable)