Happy p**R**ide!

Here’s a fun way to generate the pride flag using one (long) line of R code.

In:

image(matrix(data=c(1:6^2),nrow=6,ncol=6),asp=0.6,axes=F,
col=c(rainbow(3,rev=T,start=0.35,end=0.82,v=0.9),rainbow(3,rev=T,start=0,end=0.18)))

Out:

Happy pride!