# NOT RUN {
library(ggplot2)
library(emoGG)
# Put a emoji behind a plot
qplot(x=Sepal.Length, y=Sepal.Width, data=iris, geom="point") +
add_emoji("1f337")
# Put a silhouette anywhere
posx <- runif(50, 0, 10)
posy <- runif(50, 0, 10)
sizey <- runif(50, 0.4, 2)
p <- ggplot(data.frame(x = posx, y = posy), aes(x, y)) +
geom_point(color = rgb(0,0,0,0))
for (i in 1:50) {
p <- p + add_emoji("1f697", posx[i], posy[i], sizey[i])
}
# }
Run the code above in your browser using DataLab