Andrews' curve using geom_function

andrews.R

library(ggplot2)
library(dplyr)

Andrews <- function(t,
                    Sepal.Length, Sepal.Width,
                    Petal.Length, Petal.Width,...){
  root2 <- sqrt(2)
  sapply(t, function(t){Sepal.Length/root2 +
                               Sepal.Width*sin(t) +
                               Petal.Length*cos(t) +
                               Petal.Width*sin(2*t)})
}

layer_fun <- lapply(row_number(iris),
                    function(i)geom_function(data=iris[i,],
                                                 fun=Andrews,
                                                 args=as.list(iris[i,1:4]),
                                                 aes(colour = Species)))

ggplot() +
  layer_fun+
  xlim(-pi, pi)
ggsave("andrews.png")