library(aRtsy) #saveArt <- canvas_strokes(colors = c("black", "white", "yellow", "blue")) #saveCanvas(saveArt, filename = "c:\\temp\\mySavedArt.png") # TESTING RECMAN'S SEQUENCE canvas_recaman(colors = colorPalette("klimt"), background = "white", iterations = 1000, start = 50, increment = 10, curvature = 5, angle = 45, size = 0.1, closed = FALSE)

# the same figure with colors, and using the ggplot2 density stat ggplot(diamonds, aes(x = price, y = cut, fill = cut, height = ..density..)) + geom_density_ridges(scale = 4, stat = "density") + scale_y_discrete(expand = c(0.01, 0)) + scale_x_continuous(expand = c(0.01, 0)) + scale_fill_brewer(palette = 4) + theme_ridges() + theme(legend.position = "none")

# with iris data #ggplot(iris, aes(Sepal.Length, Petal.Length)) + geom_density_2d_filled(show.legend = FALSE) #+ coord_cartesian(expand = FALSE)

ggplot(iris, aes(Sepal.Length, Petal.Length)) + geom_bin2d(bins = 15) + scale_fill_distiller(palette = "Spectral", direction = 1)

ggplot(iris, aes(Sepal.Length, Petal.Length)) + geom_hex(bins = 20, color = "grey") + scale_fill_distiller(palette = "Spectral", direction = 1)

Algorithm = psumtree Barabasi-Albert Model

Built-in Network3d Library

The Plot is built in Network3d Library in R