I generated my personal logo with the following code. It was fun.

`library(tidyverse)`

The squares are represented by `x,y`

coordinates, together with `id`

and `color`

:

```
gap <- 0.0
square <- tibble(y = c(0,1,2, 1), x = c(0,1,0,-1))
square2 <- mutate(square, x = x - 1 - gap, id = 2, color = 1)
square4 <- mutate(square, x = x + 1 + gap, id = 4, color = 1)
square3 <- mutate(square, y = y + 1 + gap, id = 3, color = 2)
square1 <- mutate(square, x = x - 2 - 2*gap, y = y + 1 + gap, id = 1, color = 2)
square5 <- mutate(square, x = x + 2 + 2*gap, y = y + 1 + gap, id = 5, color = 2)
squares <- bind_rows(square1, square2, square3, square4, square5)
```

Logo is rendered through `geom_polygon()`

:

```
ggplot(data = squares) +
geom_polygon(aes(x = x, y = y, group = id, fill = color), show.legend = F) +
coord_fixed() +
theme_void()
```