library(textcat)
rm(list=ls()) fillColor = "#FFA07A" fillColor2 = "#F1C40F" reviews <- read_csv('../input/yelp_review.csv') business <- read_csv("../input/yelp_business.csv")