Show/hide R-code

c <- 2 library(ggplot2) X <- c() Y <- c() for (i in 1:n) { r <- c * sqrt(i) vinkel <- i * v X[i] <- r * cos(vinkel) Y[i] <- r * sin(vinkel) } allData <- data.frame(X, Y) flower <- ggplot(allData, aes(x = X, y = Y)) + geom_point() flower + theme(axis.ticks.x=element_blank(), axis.text.x=element_blank(), axis.ticks.y=element_blank(), axis.text.y=element_blank(), axis.title.x=element_blank(), , axis.title.y=element_blank())

Phyllotaxis – the spiral arrangement in botany

Mathematical curves in nature