# NOT RUN {
set.seed(42)
dat <- mtcars
dat$name <- row.names(mtcars)
dat$size <- dat$mpg
dat$size[1] <- 300
ggplot(data = dat, aes(size = size, label = name)) + geom_text_wordcloud() +
theme_minimal()
dat$angle <- (-90+180*runif(nrow(dat)))*(runif(nrow(dat)>.6))
ggplot(data = dat, aes(size = size, label = name, angle = angle)) +
geom_text_wordcloud() + theme_minimal()
# }
Run the code above in your browser using DataLab