Как построить часть двух плоскостей

Question

Я хотел бы построить две плоскости на трехмерном графике. Я пробовал persp3d, и он генерирует две плоскости. Но вместо целых двух плоскостей я просто хочу показать их части, разделенные линией пересечения, то есть «левую» часть синей плоскости и «верхнюю» часть красной плоскости. Я пробовал xlim, ylim, но, похоже, мои ограничения - это не отдельные значения, а функции.

library(rgl)
x <- seq(-10, 10, length = 30)
y <- x
region = expand.grid(x=x, y=y)
z1 = region$x+2*region$y + 2
z2=3*region$x+region$y
persp3d(x,y,z1,col="steelblue")
persp3d(x,y,z2,col="red",add=TRUE)

Answer 1

for (i in 1:900){
z[i] = ifelse(region$x[i]+2*region$y[i] + 2 > 
3*region$x[i]+region$y[i],region$x[i]+2*region$y[i] + 2,3*region$x[i]+region$y[i])}
persp3d(x,y,z,col="steelblue")

Это вдохновлено предложением Хуан Руи

Answer 2

 grid = mesh(x,y)
 z = with(grid,ifelse(x+2*y>3*x+y,x+2*y,3*x+y))
 persp3D(z = z, x = x, y = y,col = NULL)