data("phone_offers")
polite.data<-politeness(phone_offers$message, parser="none", drop_blank=FALSE)
politeness::politenessPlot(polite.data,
split=phone_offers$condition,
split_levels = c("Tough","Warm"),
split_name = "Condition",
top_title = "Average Feature Counts")
Run the code above in your browser using DataLab