```
library(tidyverse)
z = function(n) {
bb = function(i) {
x = y = 0
for (k in 0:(n - 1)) {
x = x + ((floor(i/2^(2 * k))) %% 2) * 2^k
y = y + ((floor(i/2^(2 * k + 1))) %% 2) * 2^k
}
c(x, y)
}
as.data.frame(t(sapply(0:(4^n - 1), bb)))
}
ggplot(z(6)) +
geom_path(aes(x=V1, y=V2, col=sin(V1/4)+cos(V2/4)), show.legend=F) +
scale_colour_gradient(low='orange', high='blue') +
theme_void()
```
https://en.wikipedia.org/wiki/Z-order_curve
#rstats #generativeart #tilingtuesday #rtistry #fractal
New blog post about data art! 
Why do people make data art?
How do I get started making my own?
It includes an example using 
