generate some simple snow -- https://twitter.com/ikashnitsky/status/937786580231696384

snow-for-Sophia.R

################################################################################
#
# ikashnitsky.github.io 2017-12-04
# Generate some snow for Sophia
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#
################################################################################


library(tidyverse)

n <- 1e2

tibble(x = runif(n),
       y = runif(n),
       size = runif(n, min = 4, max = 20)) %>% 
        ggplot(aes(x, y, size = size)) + 
        geom_point(color = "white", pch = 42)+
        scale_size_identity()+
        coord_cartesian(c(0, 1), c(0, 1))+
        theme_void()+
        theme(panel.background = element_rect(fill = "black"),
              plot.background = element_rect(fill = "black"))



# generate bubbles of random color and size -------------------------------

n <- sample(20:50, 1)

tibble(x = runif(n),
       y = runif(n),
       size = runif(n, min = 3, max = 20),
       color = rgb(runif(n),runif(n),runif(n))) %>% 
        ggplot(aes(x, y, size = size, color = color)) + 
        geom_point()+
        scale_color_identity()+
        scale_size_identity()+
        coord_cartesian(c(0,1),c(0,1))+
        theme_void()