Hello,
I am hoping to find a quicker way to preview and save the following graph. The run time is really long and I am running on a very strong system. Is there any way to render the preview quicker or to change the save of the plot?
I'd be open to any suggestions/answers.
# Load packages
library(aRtwork)
library(ggplot2)
library(tweenr)
# Generate data
df <- procedural_ring(seed = 3, n = 400, n_circles = 4, r_0 = 5000,
eps = 500, eps_big = 5000, p_defect = 0.1, delta = 2.02)
# Create plot
p <- ggplot() +
geom_segment(aes(x, y, xend = xend, yend = yend), df, size = 0.025, alpha = 0.05) +
coord_equal() +
theme_void()
# Save plot (might take a few moments)
ggsave("procedural_ring.png", p, width = 20, height = 20, units = "cm")