在R语言rgl包的plot3d中如何添加点的阴影？

嘿，我之前在做3D可视化的时候也遇到过这个问题——直接把点的z值改成最小值会导致绘图区域自动扩展，留下讨厌的空隙。其实核心解决方案就是提前固定坐标轴范围，不让rgl自动调整，同时用半透明的点模拟阴影效果。下面给你两种实用的实现方式：

方法一：提前固定坐标轴范围（最直接） #

这个思路是先确定好你想要的z轴上下限（比如把底部设为-100），然后在绘制原始点时就指定zlim参数，这样绘图区域就不会随意扩大。接着在底部平面绘制半透明的灰色点作为阴影：

library(rgl)

# 模拟你的数据（替换成你自己的数据集即可）
set.seed(123)
x <- rnorm(50)
y <- rnorm(50)
z <- runif(50, 0, 100)

# 定义底部阴影所在的z值和z轴范围
shadow_z <- -100
z_range <- c(shadow_z, max(z))

# 绘制原始3D点，固定坐标轴范围
plot3d(x, y, z,
       xlim = range(x), ylim = range(y), zlim = z_range,
       col = "darkblue", size = 6, type = "s") # type="s"画球体，更立体

# 添加底部网格
grid3d("z", at = shadow_z)

# 绘制阴影点：用半透明灰色，大小和原始点一致
points3d(x, y, rep(shadow_z, length(x)),
         col = rgb(0.4, 0.4, 0.4, 0.3), # 最后一个值是透明度，0-1之间调整
         size = 6, type = "s")

这样操作后，阴影点会紧紧贴在底部网格上，不会出现空隙，而且交互式旋转时阴影位置也会保持对应。

方法二：动态获取当前坐标轴范围（适合已有绘图的场景） #

如果你已经绘制了3D图，不想重新开始，可以先获取当前的坐标轴范围，再基于这个范围绘制阴影，避免区域扩展：

# 假设你已经有了一个plot3d对象
current_zlim <- par3d()$zlim
shadow_z <- current_zlim[1] # 取当前z轴最小值作为阴影平面

# 绘制阴影点
points3d(x, y, rep(shadow_z, length(x)),
         col = rgb(0.3, 0.3, 0.3, 0.3),
         size = 6)

小技巧 #

• 调整rgb()的第四个参数（透明度）可以让阴影更自然，避免太突兀；
• 如果想让阴影看起来更像投影，可以把阴影点的大小设得比原始点稍大一点；
• 如果你需要的是随视角变化的实时投影阴影（而不是固定在底部平面），可以用rgl的project()函数计算点在屏幕上的投影，但这种阴影是2D的，需要结合panel3d来绘制，相对复杂一些，如果你需要这种效果可以再深挖细节~

内容的提问来源于stack exchange，提问作者Rodrigo