如何用Plotly按多组绘制3D折线图？（仿geom_path连接）

核心问题原因 #

Plotly的scatter3d和ggplot的geom_path逻辑不同：ggplot会通过group参数自动将数据拆分为多个分组并分别连线，但Plotly的单条scatter3d trace会按数据原始顺序连接所有点，仅用color=~interaction(...)只是给点/线上色，不会拆分分组生成独立连线。

解决方案：按分组生成独立Trace #

要实现按participant和spreadsheet_row分组连线，需要将每个分组的数据单独生成一条scatter3d trace，具体步骤如下：

1. 加载所需包 #

确保你已安装并加载对应工具包：

library(plotly)
library(data.table)
library(dplyr)

2. 处理测试数据 #

先生成并规整测试数据（对齐原代码中的列名差异）：

dt <- data.table(
  x.center = rnorm(100), 
  y.center = rnorm(100), 
  z.center = rnorm(100), 
  spreadsheet_row = sample(1:20, 100, replace=T), 
  participant = paste0('P-', sample(1:10, 100, replace=T))
)
# 可选：按spreadsheet_row排序，保证分组内连线顺序符合预期
dt <- dt %>%
  group_by(participant, spreadsheet_row) %>%
  arrange(spreadsheet_row, .by_group = TRUE) %>%
  ungroup()

3. 生成分组3D折线图 #

使用dplyr的分组循环功能，为每个分组创建独立trace：

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

# 按分组添加trace
dt %>%
  group_by(participant, spreadsheet_row) %>%
  do(
    p = add_trace(
      p,
      data = .,
      x = ~x.center,
      y = ~y.center,
      z = ~z.center,
      type = 'scatter3d',
      mode = 'lines',
      opacity = 1,
      line = list(width = 3),
      name = paste(.$participant[1], .$spreadsheet_row[1], sep = "-") # 设置分组图例名称
    )
  ) %>%
  invisible()

# 显示最终图表
p

简洁写法（用purrr） #

如果习惯用purrr工具包，可通过拆分分组列表实现：

library(purrr)

# 拆分数据为分组列表
dt_groups <- dt %>% split(list(.$participant, .$spreadsheet_row))

# 批量添加trace
p <- plot_ly() %>%
  map(dt_groups, ~ add_trace(
    .,
    x = ~x.center,
    y = ~y.center,
    z = ~z.center,
    type = 'scatter3d',
    mode = 'lines',
    opacity = 1,
    line = list(width = 3),
    name = paste(.$participant[1], .$spreadsheet_row[1], sep = "-")
  )) %>%
  invisible()

p

关键说明 #

• 每个分组对应一条独立trace，这样Plotly会单独为每个分组连线，效果和ggplot的geom_path(aes(group=interaction(participant, spreadsheet_row)))一致。
• name参数用于在图例中标识分组组合，方便区分不同线条。
• 若需要保证分组内连线顺序（比如按spreadsheet_row递增），必须先对每个分组内的数据排序，否则连线会随机混乱。

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