jenitivecase

devtools::install_github("dill/emoGG")
library(emoGG)

emoji_search("birthday")

bday_plot <- data.frame(x = c(10, 15, 23, 27, 43, 56, 62, 76, 84, 92, 95), 
                        y = c(12, 71, 17, 84, 33, 70, 26, 82, 16, 26, 90))

ggplot() +
  geom_text(aes(x = 50, y = 50),label = "Happy Birthday!",