R 为天线发射测量构建3d绘图功能

我有三个[1:360,2]表的输入，其中包括三个平面X、Y、Z的测量值，每个平面都有1:360度极坐标。这里的图片就是其中一个表格的一个很好的例子。

我想将这三个“圆”打印为不同的平面圆（x、y、z），如下面的链接所示。

昨晚我写了一个在rgl库上工作的小例子（但也许 我应该“移动”这段代码到ggplot2），它通过将极坐标转换为笛卡尔坐标来绘制这三个圆，为简单起见，假设所有三个圆的半径都为1。你可以复制粘贴下面的内容，看看我的意思

require("rgls")

degreeToRadian<-function(degree){
  return   (0.01745329252*degree)
}

turnPolarToX<-function(Amplitude,Coordinate){
  return (Amplitude*cos(degreeToRadian(Coordinate)))
}

turnPolarToY<-function(Amplitude,Coordinate){
  return (Amplitude*sin(degreeToRadian(Coordinate)))
}

# first circle
X1<-turnPolarToX(1,1:360)
Y1<-turnPolarToY(1,1:360)
Z1<-rep(0,360)

# second circle
X2<-turnPolarToX(1,1:360)
Y2<-rep(0,360)
Z2<-turnPolarToY(1,1:360)

# third circle
X3<-rep(0,360)
Y3<-turnPolarToX(1,1:360)
Z3<-turnPolarToY(1,1:360)

Min<-min(X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3)
Max<-max(X1,Y1,Z1,X2,Y2,Z2,X3,Y3,Z3)
plot3d(X1,Y1,Z1,xlim=c(Min,Max),ylim=c(Min,Max),zlim=c(Min,Max),box=TRUE,axe=FALSE,add=TRUE,col="red",type="l")
plot3d(X2,Y2,Z2,xlim=c(Min,Max),ylim=c(Min,Max),zlim=c(Min,Max),box=TRUE,axe=FALSE,add=TRUE,col="green",type="l")
plot3d(X3,Y3,Z3,xlim=c(Min,Max),ylim=c(Min,Max),zlim=c(Min,Max),box=TRUE,axe=TRUE,add=FALSE,col="blue",type="l")

require（“rgls”）
度弧度