blog.part2

blog.parts.R

# this time lets set the axis limits to 1:100
plot(0, 0, col = "white", xaxt = "n", yaxt = "n", xlab = "", ylab = "", xlim=c(0,100), ylim=c(0,100))
# now lets try printing a bunch
x <- sample(1:100, size = 100, replace = T)
y <- sample(1:100, size = 100, replace = T)
fl.col <- viridis::viridis(100)
for(i in 1:100){
  flower(x = x[i], y = y[i], colx = fl.col[i], cex.x = 1, cex.y = 1.5, cex.f = 1)
}