如何使用R语言rgl包绘制指定参数的部分圆锥（截头）3D模型

在rgl中通过「底半径、顶半径、高度」三个参数绘制截头圆锥（即圆锥的一部分）完全可行，且实现难度很低。
之所以在官方文档中检索不到圆锥相关的直接说明，是因为rgl的设计偏向底层几何能力，没有为圆锥、圆台这类常见形体做单独的顶层封装，而是把变半径柱体的能力整合在了cylinder3d函数里，直接搜索“cone”关键词自然找不到对应内容，但完全可以通过内置基础接口快速组装出需要的模型。

最简便的实现路径 #

直接使用rgl内置的cylinder3d函数即可完成需求——该函数原生支持线性变化半径的柱体生成，只要将上下两个端面的半径设置为你指定的底半径、顶半径，就可以直接得到正截头圆锥：

• 参数对应关系：
  • 高度：控制模型纵向的总延伸长度，对应三个参数中的高度值
  • 底半径：设置纵向起始位置截面的圆半径
  • 顶半径：设置纵向终止位置截面的圆半径
    可直接运行的参考代码：

# 加载rgl工具包
library(rgl)
# 初始化3D绘图窗口
open3d()
# 生成截头圆锥模型：底半径2，顶半径1，总高度4
cone_part <- cylinder3d(
  center = list(
    c(0, 0, 0),  # 底面圆心坐标（z=0起始位置）
    c(0, 0, 4)   # 顶面圆心坐标（z=4终止位置）
  ),
  radius = c(2, 1),  # 两个端面对应的半径值
  sides = 60  # 圆周分段数，数值越大曲面越平滑
)
# 渲染实体表面
shade3d(cone_part, col = "#7EC8E3")
# 叠加线框展示结构
wire3d(cone_part, col = "#003366")

场景适配说明 #

• 如果将顶半径设置为0，函数会直接生成尖顶的完整圆锥，和常规认知的圆锥形态完全一致。
• 如果需要绘制扇形的圆锥切片（即仅保留圆锥圆周方向的一部分，而非整圈封闭），只需要调整cylinder3d的闭合参数、裁剪圆周方向的角度范围即可，不需要重新编写几何计算逻辑。
• 如果需要绘制斜截面的异形圆锥（端面与中轴线不垂直），只需要在center参数中调整两个端面的圆心坐标偏移，即可生成对应形态的模型。

对于需要自定义复杂变形的锥面，也可以通过圆锥参数方程生成网格点，再用persp3d接口渲染；正截头圆锥在高度z位置对应的截面半径计算公式为 r(z) = r_bottom + (r_top - r_bottom) * z / height，遍历所有z值和圆周方向的角度值，即可构建任意形态的锥面网格。

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