Построение трехмерной плоскости и векторов

Question

У меня есть плоскость в 3 измерениях, которую я построил с помощью функции persp.У меня также есть несколько трехмерных векторов, построенных в 3-х измерениях с помощью arrow3D.Я хотел бы, чтобы стрелки и плоскость были нанесены вместе.

Я искал способы объединения графиков и добавления стрелок к графикам, но я не нашел ничего относительно объединения этих двух типов графиков.Ниже MWE для производства плоскости и стрелки отдельно.

y <- 1:5
z <- outer(x,y, function(a,b) a+b)
persp(x,y,z)

arrows3D(0,0,0,1,1,1)

Answer 1

Набор add=TRUE в arrows3D:

x <- y <- 1:5
z <- outer(x, y, function(a,b) a+b)

library(plot3D)
persp(x, y, z, theta=30, phi=30)
arrows3D(x0=1, y0=1, z0=2, x1=5, y1=5, z1=10, phi=30, theta=30, add=T)