如何在Plotly 3D螺旋图中绘制完整圆环并优化连线？

问题背景 #

需要将数据框df中的prop列数据，按size和position分组后，在Plotly 3D图中呈现为俯视状态下的完整圆环：

• 初始尝试重复10次prop值生成绘图点，效果不符合预期；
• 优化为重复360次并将z轴设为position的连续ID后，效果接近理想，但存在两个问题：
  1. 不同z层级（不同position）之间的多余连线；
  2. 同一圆环平面内的异常连线。

问题根源 #

原代码将所有数据放在同一条scatter3d轨迹中，Plotly会严格按照数据行的顺序连接所有点，导致：

• 上一个(size, position)组的最后一个点，会和下一个组的第一个点被错误连接；
• theta的计算逻辑（theta = 2 * pi * position/row）有误，无法生成完整的圆环路径，进而导致平面内连线异常。

解决方案 #

核心思路 #

1. 按(size, position)分组生成独立轨迹：每个分组单独作为一条3D线轨迹，Plotly只会连接同组内的点，避免跨组连线；
2. 修正theta计算逻辑：为每个分组生成从0到2π的均匀角度序列，确保生成完整的圆环；
3. 固定z轴值：同一position的所有点使用相同的z值，保证每个圆环在同一平面。

完整代码实现 #

数据处理

library(dplyr)
library(plotly)

# 加载数据
df <- structure(list(size = c(3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 
                              5L, 5L), position = c(1, 2, 3, 1, 2, 3, 4, 1, 2, 3, 4, 5), prop = c(0.0926574818826153, 
                                                                                                  0.110336863900613, 0.30584534522577, 0.0632319256702261, 0.0857179727070362, 
                                                                                                  0.0963964254605284, 0.269251863083524, 0.0500172581505538, 0.0706956603595971, 
                                                                                                  0.0864162665913584, 0.102858577300825, 0.288838683360005)), row.names = c(NA, 
                                                                                                                                                                            -12L), class = c("tbl_df", "tbl", "data.frame"))

# 处理数据：每个(size, position)组生成360个点，对应完整圆环
data_processed <- df %>%
  group_by(size, position) %>%
  summarise(
    # 生成0到2π的360个均匀角度
    theta = seq(0, 2 * pi, length.out = 360),
    radius = prop,
    x = radius * sin(theta),
    y = radius * cos(theta),
    z = first(position),  # 同一position的z值固定
    .groups = "drop"
  )

绘图代码

# 初始化空的Plotly对象
p <- plot_ly()

# 按(size, position)分组添加每条轨迹
data_processed %>%
  group_by(size, position) %>%
  group_walk(function(group, key) {
    p <<- add_trace(p,
                    data = group,
                    x = ~x, y = ~y, z = ~z,
                    type = 'scatter3d',
                    mode = 'lines',
                    line = list(
                      width = 5,
                      color = key$size,
                      colorscale = list(c(0,'#0000FF'), c(0.5, "#00FF00"), c(1,'#FF0000'))
                    ),
                    name = paste0("size=", key$size, ", position=", key$position)
    )
  })

# 调整布局为俯视视角（z轴垂直向上）
p <- layout(p,
            scene = list(
              camera = list(
                eye = list(x = 0, y = 0, z = 1.5)  # 俯视角度
              ),
              xaxis = list(title = "X"),
              yaxis = list(title = "Y"),
              zaxis = list(title = "Position")
            ))

# 显示图形
p

效果说明 #

• 每个(size, position)分组对应独立的圆环，无跨组连线；
• theta序列从0到2π均匀分布，生成标准的完整圆环，平面内无异常连线；
• z轴固定为position值，不同position的圆环在不同高度平面，俯视时层次清晰。

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