Here's an example with days in office before assassination. . Assume Days_in_office is the same as frequency:
library(wordcloud)
library(dplyr)
df <- data.frame(President = c("Lincoln", "Garfield", "McKinley", "Kennedy"),
Days_in_office = c(1503,199,1654,1036) )

df %>% with(wordcloud(words=President, freq=Days_in_office, random.order=FALSE, random.color=FALSE, rot.per = 0, colors = c("blue", "black", "red")))