How can I plot 3D function in r?

Question

I have a function in 3D - let's say De Jong function:

fdejong <- function (x, y) {
   return (x^2 + y^2)
}

How can I draw it's plot in 3D? I want to achieve an effect similar to this from wikipedia:

stackoverflow.com/questions/11875941/3d-equivalent-of-the-curve-function-in-r/ — Ben Bolker, Jun 05 '14 at 16:43

score 9 · Answer 1 · edited Jun 05 '14 at 16:53

9

try this :

fdejong <- function (x, y) {
   return (x^2 + y^2)
}


x <- seq(-10, 10, length= 30)
y <- x
z <- outer(x, y, fdejong)
z[is.na(z)] <- 1
op <- par(bg = "white")
persp(x, y, z, theta = 30, phi = 30, expand = 0.5, col = "lightblue")

fdejong persp plot

edited Jun 05 '14 at 16:53

MrFlick

178,638
15
253
268

answered Jun 05 '14 at 16:40

Vincent Guyader

2,637
1
24
41

It's almost what I want, but is it any way to color it like that plot in wikipedia (color depend on the function value)? – SathOkh Jun 05 '14 at 16:56
+1 for using the base function!! – Shambho Jun 05 '14 at 17:13

score 8 · Accepted Answer · answered Jun 05 '14 at 17:00

You can also use the Lattice wireframe function. (Using @user1020027's data)

fdejong <- function (x, y) {
   return (x^2 + y^2)
}

x <- seq(-10, 10, length= 30)
y <- x
z <- outer(x, y, fdejong)
z[is.na(z)] <- 1

require(lattice)
wireframe(z, drape=T, col.regions=rainbow(100))

lattice wireframe color plot

How can I plot 3D function in r?

2 Answers2

Linked