The code below is very slow (and possibly does not even run - I have not waited for it to finish yet). Is there a way of speeding it up?
library(ggpattern); library(ggplot2)
diamonds %>%
ggplot(aes(price, fill = cut)) +
geom_rect_pattern(aes(xmin = 5000, xmax = 10000, ymin = 0, ymax = 15000), pattern = 'stripe', fill = 'white', colour = 'white')