library(tidyverse) library(ambient) library(randomcoloR) library(ggforce) disturbance = expand.grid(c = 1:25, r = 1:49) %>% mutate( c = ifelse(r %% 2 == 0, c + 0.5, c), a = 180 * gen_cubic(c, r, frequency = 0.1, seed = 1964) ) %>% filter(c <= 50) ggplot(disturbance) + geom_text(aes(c, r, label = "0", angle = a, color = a), family = "Times", size = 16, show.legend = F) + coord_fixed(ratio = 0.5, expand = TRUE) + scale_color_gradient2(low = "orange", high = "red", mid = "tomato") + theme_void() set.
