如何在R中绘制随时间变化的3D加速度计与陀螺仪数据？

我有一段时间内陀螺仪与加速度计的3D数据，各轴数据形态类似正弦曲线，希望分别绘制能体现时间变量的3D图表，展示3D运动状态。目前我用以下R代码实现了基础3D绘图：

plot_ly(fogp, x = ~x, y = ~y, z = ~z, type = 'scatter3d', mode = 'lines')

但这个图表没有体现时间变量。另外我尝试添加动画功能，但只有坐标轴移动缩放，数据点并未动，代码如下：

plot_ly(fogp, x = ~x, y = ~y, z = ~z, type = 'scatter3d', frame = ~timestamp)

请问如何绘制三维变量随时间变化的图表？针对这类运动可视化，有没有相关建议？

解决方法 #

修复动画轨迹展示问题 #

你那串动画代码没达到预期效果，是因为frame = ~timestamp会按每个时间戳生成独立帧，但每个帧只包含对应时间点的单个数据点，自然看不到轨迹的动态变化。要展示随时间推进的运动轨迹，得让每一帧包含从起始到当前时间点的所有数据，步骤如下：

1. 先给数据按时间戳排序，确保时间顺序正确：

fogp <- fogp[order(fogp$timestamp), ]

2. 生成累积式的帧数据，让每个帧包含从开头到当前时间点的所有记录：

# 复制数据，生成每个时间点对应的累积数据集
cumulative_fogp <- do.call(rbind, lapply(1:nrow(fogp), function(i) {
  fogp[1:i, ] %>% mutate(frame = paste0("time_step_", i))
}))

3. 用处理后的数据集绘制动画，同时保留轨迹线和当前点标记：

plot_ly(cumulative_fogp, x = ~x, y = ~y, z = ~z, type = 'scatter3d', mode = 'lines+markers') %>%
  animation_frame(~frame, transition = 0.1) %>%
  animation_opts(frame = 50, redraw = FALSE) %>%
  layout(scene = list(
    xaxis = list(title = "X轴"),
    yaxis = list(title = "Y轴"),
    zaxis = list(title = "Z轴")
  ))

这样动画会逐步绘制从起始到当前时间点的轨迹，同时标记当前位置，清晰体现时间维度的变化。

运动数据可视化建议 #

• 分轴时间序列对比：除了3D轨迹，可同时绘制三个轴（X/Y/Z）的时间序列子图，方便直观对比各轴随时间的波动规律：

subplot(
  plot_ly(fogp, x = ~timestamp, y = ~x, type = 'scatter', mode = 'lines', name = "X轴"),
  plot_ly(fogp, x = ~timestamp, y = ~y, type = 'scatter', mode = 'lines', name = "Y轴"),
  plot_ly(fogp, x = ~timestamp, y = ~z, type = 'scatter', mode = 'lines', name = "Z轴"),
  nrows = 3, shareX = TRUE
)

• 轨迹着色映射时间：如果不想做动画，可直接给3D轨迹线按时间戳着色，用颜色深浅体现运动的先后顺序：

plot_ly(fogp, x = ~x, y = ~y, z = ~z, type = 'scatter3d', mode = 'lines',
        line = list(color = ~timestamp, colorscale = 'Viridis')) %>%
  colorbar(title = "时间") %>%
  layout(scene = list(
    xaxis = list(title = "X轴"),
    yaxis = list(title = "Y轴"),
    zaxis = list(title = "Z轴")
  ))

• 区分传感器类型：如果同时有陀螺仪和加速度计数据，建议用不同颜色或线型分开绘制，避免混淆；也可做两个独立的3D图表并排展示，更清晰对比两类数据的运动特征。

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