趣味绘图-R绘制爱心及圣诞老人

library(ggwordcloud)
#> Loading required package: ggplot2


data("love_words_small")

head(love_words_small)
set.seed(42)
ggplot(love_words_small, aes(label = word, size = speakers)) +
  geom_text_wordcloud() +
  scale_size_area(max_size = 40) +
  theme_minimal()

 

#形状
data("love_words")
head(love_words)
set.seed(42)
ggplot( love_words,aes(label = word, size = speakers,color = speakers)) +
  geom_text_wordcloud_area(aes(angle = 45 * sample(-2:2, nrow(love_words),
                                                   replace = TRUE,prob = c(1, 1, 4, 1, 1))),
                           mask = png::readPNG(system.file("extdata/hearth.png",
                                                           package = "ggwordcloud", mustWork = TRUE
                           )),
                           rm_outside = TRUE
  ) +
  scale_size_area(max_size = 40) +
  theme_minimal() +
  scale_color_gradient(low = "darkred", high = "red")

 

 绘制圣诞老人

##绘制圣诞老人
require(emojifont)
require(ggplot2)
require(patchwork)

ggplot() + geom_emoji("christmas_tree")+theme_classic() -> p1
ggplot() + geom_emoji("santa")+theme_classic() -> p2

p1 + p2

 

Reference：An Introduction to emojifont package (r-project.org)