如何用R语言plot3D包的persp3D()函数增加3D曲面图厚度？

Great question! I’ve wrestled with this exact problem before when trying to make my 3D surface plots feel more tangible with plot3D. You’re right that persp3D() doesn’t have a built-in parameter for thickness—here’s how I’ve solved it in practice:

This approach creates a fully enclosed "solid" surface by drawing a bottom offset surface and connecting the edges with side polygons. It’s more precise, perfect for polished visuals.

library(plot3D)

# Use the built-in volcano dataset for example
z <- volcano
x <- 1:nrow(z)
y <- 1:ncol(z)

# Adjust this value to control thickness
thickness <- 5
z_bottom <- z - thickness

# First draw the bottom surface (darker color for depth)
persp3D(x, y, z_bottom, col = "gray30", border = NA, 
        xlab = "X Axis", ylab = "Y Axis", zlab = "Z Axis",
        zlim = c(min(z_bottom), max(z)))

# Add the top main surface (your original plot)
persp3D(x, y, z, col = "lightblue", border = "white", 
        add = TRUE, alpha = 0.8)

# Draw side polygons to connect top and bottom surfaces
# X-direction edges
for (i in 1:nrow(z)) {
  polygon3D(x = rep(x[i], 2), y = c(y[1], y[length(y)]), 
            z = c(z_bottom[i,1], z_bottom[i,length(y)], z[i,length(y)], z[i,1]),
            col = "gray50", border = NA)
}

# Y-direction edges
for (j in 1:ncol(z)) {
  polygon3D(x = c(x[1], x[length(x)]), y = rep(y[j], 2), 
            z = c(z_bottom[1,j], z_bottom[length(x),j], z[length(x),j], z[1,j]),
            col = "gray50", border = NA)
}

If you want a quicker workaround without perfect side edges, stack slightly offset semi-transparent surfaces to create a "layered" thickness effect.

library(plot3D)

z <- volcano
x <- 1:nrow(z)
y <- 1:ncol(z)

thickness <- 3

# Draw layered offset surfaces with fading transparency
for (i in 0:thickness) {
  persp3D(x, y, z - i, col = rgb(0.3, 0.6, 0.8, alpha = 0.2), 
          border = NA, add = ifelse(i > 0, TRUE, FALSE),
          zlim = c(min(z)-thickness, max(z)))
}

# Add the top opaque surface to make the main plot pop
persp3D(x, y, z, col = "lightblue", border = "white", add = TRUE)

Key Notes: #

• Adjust the thickness variable to control how "deep" your surface looks.
• Tweak colors and alpha values to match your example plot’s style.
• This is a common workaround since most basic 3D surface functions only render thin planes—you have to build the thickness manually!

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