Hi, I am new to R and trying to replicate the following image.

I have been able to make the indifference curves but cant seem to add the color hue. I tries using ggplot but that does not allow me to add the indifference lines.

Any help is appreciated.

So far this is what i have tried

u <- function(x, y){

x^(1/2)*y^(1/2)

}

x <- seq(0, 10,0.1)

y <- seq(0, 10,0.1)

a <- c(2, 4, 6)

p<- outer(x, y, u)

persp(x, y, outer(x, y, u), ticktype="detailed")

p<- contour(x, y, outer(x, y, u), levels=a, drawlabels = FALSE)