mathart
A cool package for math generated art that I just discovered. Here is the install code for it
install.packages(c("devtools", "mapproj", "tidyverse", "ggforce", "Rcpp"))
devtools::install_github("marcusvolz/mathart")
devtools::install_github("marcusvolz/ggart")
devtools::install_github("gsimchoni/kandinsky")
Load some libraries
library(mathart)
library(ggart)
library(ggforce)
library(Rcpp)
library(tidyverse)
Generate some Art?
This is quite fun to do.
set.seed(12341)
terminals <- data.frame(x = runif(10, 0, 10000), y = runif(10, 0, 10000))
df <- 1:10000 %>%
map_df(~weiszfeld(terminals, c(points$x[.], points$y[.])), .id = "id")
p <- ggplot() +
geom_point(aes(x, y), points, size = 1, alpha = 0.