是否有R函数可以围绕xyz线段创建3d圆柱体？

问题描述

我正在R中工作，并且试图在3D中将圆柱体围绕我的细分 数据集看起来像这样：

x1 = y1 = z1 = x2 = y2 = z2 = runif(10,-1,1)
radius = runif(10,0.1,0.2)
id = 1:10
data = data.frame(id,x1,y1,z1,x2,y2,z2,radius)

当z1和z2等于0时，我在二维中有一个解决方案

circus <- seq(-0.95,0.95,0.95/4)
cir <- data.frame(x_cir = rep(circus,2*nrow(data)))%>%
           mutate(y_cir = rep(c(sqrt(1-circus^2),-sqrt(1-circus^2)),nrow(data)),id = sort(rep(id,2*length(circus))))

results <- left_join(cir,data,by = "id")%>%
              mutate(x1 = x_cir*radius+x1,y1 = y_cir*radius+y1,x2 = x_cir*radius+x2,y2 = y_cir*radius+y2)

但是现在，我想进入3D模式。 R中已经有一些函数可以进行这种转换？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）