R plot3d着色

Question

我正在使用plot3d()的rgl在数据框中使用三列样本制作3D散点图。此外，我正在使用我的数据框中的第四列colorby（其中每个样本取值，例如10,11,12作为因子/水平）来为图中的点着色。

当使用plot()制作2D图时，我首先在palette(rainbow(3))中设置col = colorby然后plot()，然后是legend()。情节，颜色和传奇都很好。

然而，当我重复plot3d()的最后一部分时，着色混合起来，而不是相同的颜色分配到与plot()相同的水平。此外，如果我使用legend3d("topright", legend = levels(colorby), col = rainbow(3))创建一个图例，它看起来与2D图例相同，但3D图中的着色显然是错误的。

我哪里错了？

Answer 1

这对我来说是正确的：

df <- data.frame(x=1:9, y=9:1, z=101:109, colorby=gl(3,3))
palette(rainbow(3))
plot(x~y, df, col = df$colorby)
library(rgl)
with(df, plot3d(x,y,z, col = colorby))
legend3d("topright", legend = levels(df$colorby), col = levels(df$colorby), pch=19)