This package lets you create and plot fractals.
currently implemented:
You can install the most recent version from GitHub:
# install.packages("remotes")
remotes::install_github("bastihz/fractalplotr")
RStudio’s integrated package updater won’t detect updates in packages installed from GitHub. I recommend running
remotes::update_packages()
in regular intervals to check for updates from those sources.
plant <- l_system(
axiom = "X",
rules = list(
X = "F+[[X]-X]-F[-FX]+X",
F = "FF"
),
n = 7,
angle = pi * 0.15,
initial_angle = pi * 0.45
)
par(mar = rep(0, 4))
plot(plant, col = colorRampPalette(c("#008000", "#00FF00"))(100))
d <- dragon_curve(12)
par(mar = rep(0, 4))
plot(d, col = "purple")
blue_to_black <- colorRampPalette(c(rgb(0, 0, 0.5), "white", rgb(1, 0.75, 0),
"darkred", "black"))
m <- mandelbrot(
1200,
1200,
re_width = 2.5,
center = -0.75,
color_palette = blue_to_black(128),
color_mode = "smooth"
)
plot(m)
s <- sandpile(1e5, c("white", "yellow", "orange", "red"))
plot(s)