Sandra

knitr::opts_chunk$set(echo = TRUE)

library(emojifont)
library(fontawesome)
library(ggplot2)
library(tidyverse)
t <- seq(0,2*pi, by = 0.16)
x <- 16*sin(t)^3
y <- 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t)
d <- data.frame(x = x, y = y)


ggplot()+
  geom_emoji("cake", color = "forestgreen", size = 40)+
  geom_emoji('birthday', x=x, y=y, size=10)+
  annotate("text", x = 0, y = 0, label = "Happy birthday,Sandra",
           colour = "#353839", size = 10)+
  theme_void()+
  theme(legend.text=element_text(family='fontawesome-webfont'))