Christmas tree

Wed, 18 Dec 2019 00:00:00 +0000

So it is Christmas and I want a tree. I found this new package experimental ggfx and I thought it would be nice to use it for the lights. Then some time later I found (through twitter) this other repo about building trees.

So here I am building my own christmas tree!

The very basics

We start with installations:

devtools::install_github('thomasp85/ggfx')

We’ll build our tree with triangles:

library("ggplot2")
ggplot(data.frame(x = c(-5, 5, 0), y = c(0, 0, 5))) +
  geom_polygon(aes(x, y), fill = "green") +
  theme_void()

To make it easier we use some functions for the triangles:

iso_triangle <- function(wide, height, xvertix, yvertix) {
  y <- c(rep(yvertix-height, 2), yvertix)
  x <- c(xvertix+wide/2, xvertix-wide/2, xvertix)
  data.frame(x, y)
}

square <- function(length, x_bottom_right, y_bottom_right) {
  x <- rep(c(x_bottom_right-length, x_bottom_right), 2)
  y <- rep(c(y_bottom_right, y_bottom_right+length), each = 2)
  data.frame(x, y)[c(1, 3, 4, 2), ]
}

And off to build a tree:

tree <- ggplot() +
  aes(x, y) +
  geom_polygon(data = square(0.5, 0.25, 0.25), fill = "brown") +
  geom_polygon(data = iso_triangle(10, 4, 0, 4.5), fill = "darkgreen") + 
  geom_polygon(data = iso_triangle(9, 4, 0, 4.5), fill = "lightgreen") + 
  geom_polygon(data = iso_triangle(8, 3, 0, 6), fill = "green") +
  geom_polygon(data = iso_triangle(7, 3, 0, 6), fill = "darkgreen") +
  geom_polygon(data = iso_triangle(6, 2.5, 0, 7), fill = "lightgreen") + 
  geom_polygon(data = iso_triangle(5, 2.5, 0, 7), fill = "green") + 
  geom_polygon(data = iso_triangle(4, 1.5, 0, 7.5), fill = "darkgreen") +
  geom_polygon(data = iso_triangle(3, 1.5, 0, 7.5), fill = "lightgreen") +
  geom_polygon(data = iso_triangle(2, 1.5, 0, 8), fill = "green")
tree

The tree looks good enough, but if you disagree or want some more realistic trees see this challenge. Very funny to play with it (but I didn’t manage to build my tree with it :/). Anyway, now we have the tree and we need to turn them to a glowing tree!!

Decorating the tree

Now it is time to decorate and turn on the lights with the help of ggfx:

library("ggfx")
tree + 
  with_blur(geom_point(data =data.frame(x = 0, y = 8), size = 3, col = "yellow"), sigma = 2, stack = TRUE) + 
  with_blur(geom_point(data =data.frame(x = c(2, -3), y = c(1.5, 1)), size = 3, col = "darkgreen"), sigma = 2, stack = TRUE) + 
  with_blur(geom_point(data =data.frame(x = c(2, -3), y = 2.5+c(1, 1.2)), size = 3, col = "purple"), sigma = 2, stack = TRUE) + 
  with_blur(geom_point(data =data.frame(x = -5, y = 0.5), size = 3, col = "red"), sigma = 2, stack = TRUE) + 
  with_blur(geom_point(data =data.frame(x = 5, y = 0.5), size = 3, col = "orange"), sigma = 2, stack = TRUE) + 
  with_blur(geom_point(data =data.frame(x = -2.5, y = 4), size = 3, col = "red"), sigma = 2, stack = TRUE) + 
  with_blur(geom_point(data =data.frame(x = 3, y = 3.5), size = 3, col = "black"), sigma = 2, stack = TRUE) + 
  with_blur(geom_point(data =data.frame(x = c(-1, 1.25), y = c(5, 5.5)), size = 3, col = "orange"), sigma = 2, stack = TRUE) + 
  theme_void() +
  theme(plot.background = element_rect(fill = "black")) +
  NULL

And now we have our Christmas tree decorated!

Happy Christmas!!

Reproducibility

## ─ Session info ───────────────────────────────────────────────────────────────────────────────────────────────────────
##  setting  value                       
##  version  R version 4.0.1 (2020-06-06)
##  os       Ubuntu 20.04.1 LTS          
##  system   x86_64, linux-gnu           
##  ui       X11                         
##  language (EN)                        
##  collate  en_US.UTF-8                 
##  ctype    en_US.UTF-8                 
##  tz       Europe/Madrid               
##  date     2021-01-08                  
## 
## ─ Packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────
##  package     * version    date       lib source                           
##  assertthat    0.2.1      2019-03-21 [1] CRAN (R 4.0.1)                   
##  blogdown      0.21.84    2021-01-07 [1] Github (rstudio/blogdown@c4fbb58)
##  bookdown      0.21       2020-10-13 [1] CRAN (R 4.0.1)                   
##  cli           2.2.0      2020-11-20 [1] CRAN (R 4.0.1)                   
##  colorspace    2.0-0      2020-11-11 [1] CRAN (R 4.0.1)                   
##  crayon        1.3.4      2017-09-16 [1] CRAN (R 4.0.1)                   
##  digest        0.6.27     2020-10-24 [1] CRAN (R 4.0.1)                   
##  dplyr         1.0.2      2020-08-18 [1] CRAN (R 4.0.1)                   
##  ellipsis      0.3.1      2020-05-15 [1] CRAN (R 4.0.1)                   
##  evaluate      0.14       2019-05-28 [1] CRAN (R 4.0.1)                   
##  fansi         0.4.1      2020-01-08 [1] CRAN (R 4.0.1)                   
##  farver        2.0.3      2020-01-16 [1] CRAN (R 4.0.1)                   
##  generics      0.1.0      2020-10-31 [1] CRAN (R 4.0.1)                   
##  ggfx        * 0.0.0.9000 2020-08-20 [1] Github (thomasp85/ggfx@4345c5e)  
##  ggplot2     * 3.3.2      2020-06-19 [1] CRAN (R 4.0.1)                   
##  glue          1.4.2      2020-08-27 [1] CRAN (R 4.0.1)                   
##  gtable        0.3.0      2019-03-25 [1] CRAN (R 4.0.1)                   
##  htmltools     0.5.0      2020-06-16 [1] CRAN (R 4.0.1)                   
##  knitr         1.30       2020-09-22 [1] CRAN (R 4.0.1)                   
##  labeling      0.4.2      2020-10-20 [1] CRAN (R 4.0.1)                   
##  lifecycle     0.2.0      2020-03-06 [1] CRAN (R 4.0.1)                   
##  magick        2.5.2      2020-11-10 [1] CRAN (R 4.0.1)                   
##  magrittr      2.0.1      2020-11-17 [1] CRAN (R 4.0.1)                   
##  munsell       0.5.0      2018-06-12 [1] CRAN (R 4.0.1)                   
##  pillar        1.4.7      2020-11-20 [1] CRAN (R 4.0.1)                   
##  pkgconfig     2.0.3      2019-09-22 [1] CRAN (R 4.0.1)                   
##  purrr         0.3.4      2020-04-17 [1] CRAN (R 4.0.1)                   
##  R6            2.5.0      2020-10-28 [1] CRAN (R 4.0.1)                   
##  ragg          0.4.0      2020-10-05 [1] CRAN (R 4.0.1)                   
##  Rcpp          1.0.5      2020-07-06 [1] CRAN (R 4.0.1)                   
##  rlang         0.4.10     2020-12-30 [1] CRAN (R 4.0.1)                   
##  rmarkdown     2.6        2020-12-14 [1] CRAN (R 4.0.1)                   
##  scales        1.1.1      2020-05-11 [1] CRAN (R 4.0.1)                   
##  sessioninfo   1.1.1      2018-11-05 [1] CRAN (R 4.0.1)                   
##  stringi       1.5.3      2020-09-09 [1] CRAN (R 4.0.1)                   
##  stringr       1.4.0      2019-02-10 [1] CRAN (R 4.0.1)                   
##  systemfonts   0.3.2      2020-09-29 [1] CRAN (R 4.0.1)                   
##  textshaping   0.2.1      2020-11-13 [1] CRAN (R 4.0.1)                   
##  tibble        3.0.4      2020-10-12 [1] CRAN (R 4.0.1)                   
##  tidyselect    1.1.0      2020-05-11 [1] CRAN (R 4.0.1)                   
##  vctrs         0.3.6      2020-12-17 [1] CRAN (R 4.0.1)                   
##  withr         2.3.0      2020-09-22 [1] CRAN (R 4.0.1)                   
##  xfun          0.20       2021-01-06 [1] CRAN (R 4.0.1)                   
##  yaml          2.2.1      2020-02-01 [1] CRAN (R 4.0.1)                   
## 
## [1] /home/lluis/bin/R/4.0.1/lib/R/library

christmas | B101nfo

Christmas tree

The very basics

Decorating the tree

Reproducibility