求解R语言的数据可视化问题
【R语言】希望能够得到下述问题的详细代码，以供参考。
问题：下列四幅图形是一个三棱锥的四个面，用plot3D函数可否实现？如何实现图中区域的重叠？
注：图中重叠区域是下列数据的交集
LPA 40 50 60 70 80 90 100 110 120 130 140 150 160 170 180
130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300
MVPA 70 80 90
30 40 50 60 70 80 90
SED 550 560 570 580 590 600 610 620 630 640 650 660 670 680 690 700 710 720 730 740 750 760
460 470 480 490 500 510 520 530 540 550 560 570 580 590 600 610 620 630 640 650 660 670 680 690
Sleep 430 440 450 460 470 480 490 500 510 520 530 540 550 560 570 580
490 500 510 520 530 540 550 560 570 580 590 600 610 620 630 640 650 660 670 680 690 700
1mesh()函数生成网格，返回值为list,用网格计算各个点的值
2写出球体的参数方程
3用plot3d()作图
library(plot3D)
library(rgl)
M = mesh(seq(-pi,pi,length = 50),seq(-pi,pi,length = 50))
u = M$x
v = M$y
r = 1
x = r*cos(u)*cos(v)
y = r*cos(u)*sin(v)
z = r*sin(u)
plot3d(x,y,z,col = 'blue',alpha = 0.3,type = 'l')
points3d(cos(pi/4)*cos(pi/4),cos(pi/4)*sin(pi/4),sin(pi/4),col = 'red',size = 5)