叠加散点图，其中每个数据点具有不同的颜色和形状

Question

我希望可视化数据转换。我的数据是2维，转换是3维。我有兴趣了解每个数据点如何在更高维度上进行转换。因此，使用scatterplot3d包覆盖两个散点图。为了绘图目的，2维的数据具有指定为0的第三坐标。为了跟踪每个数据点，我想在2D中分配一个独特的颜色和形状，并且变换后的数据值将在3D中具有相同的颜色和形状。由于形状有限（我的n = 50），我能够分配独特的颜色而不是形状。有什么想让这个可视化更好吗？这是我可重复的例子。

install.packages("scatterplot3d")
library(scatterplot3d)
set.seed(20)
# example 
M<-cbind(a=runif(50),b=runif(50),c=rep(0,n))
N<-cbind(d=rnorm(50),e=rnorm(50),f=rnorm(50))
s3d<-scatterplot3d(N[,1],N[,2],N[,3],color=rainbow(n),type="p",pch=0
,xlab="x",ylab="y ",zlab="z")
    s3d$points3d(M[,1],M[,2],M[,3],col=rainbow(n),type="p",pch=15)