R中的3D管图

Question

我怎样才能在R中有一个“管”图？我有一个包含x，y，z坐标和一个组件速率的数据集。有255个样本（id），每个样本可能有不同的行数（观察/消耗）。对于每个样品，我想要构建一个管，但是每个管的每个部分可以根据其组分速率而具有不同的颜色。此外，collor pallete应采用梯度刻度。通过搜索R中的图来我想出的壁橱方法是下面的代码：

您可以找到我的数据集here

library(plotly)

p <- plot_ly(dataset, x = ~x, y = ~y, z = ~z,
             marker = list(color = ~Percent, colorscale = c('#FFE1A1', '#683531'), showscale = TRUE)) %>%
  add_markers() %>%
  layout(scene = list(xaxis = list(title = 'vector X'),
                      yaxis = list(title = 'vector Y'),
                      zaxis = list(title = 'vector Z')),
         annotations = list(
           x = 2,
           y = 1.05,
           text = 'vetor X1',
           xref = 'vetor Y1',
           yref = 'vetor Z1',
           showarrow = FALSE
         ))