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")