Animar gráfico de dispersão

Question

Eu tenho um conjunto de dados do formato abaixo

{time,x_pos,y_pos,z_pos}

Eu gostaria de fazer uma animação mostrando as mudanças nas coordenadas {x, y, z} ao longo do tempo no gráfico de pontos de lista 3D. Alguém poderia me dar uma ideia? A animação final deve ter a seguinte aparência. O indicador (círculo verde) está se movendo com o tempo (mostrado acima da figura). Lamento não poder compartilhar os dados. Obrigado!

Answer 1

SeedRandom[1]
dates = Sort @ RandomSample[DateRange[Today, DatePlus[Today, {100, "Day"}]], 30];
data = Join[List /@ dates, Accumulate[RandomReal[10, {30, 3}]], 2];

g1 = Graphics3D[{Blue, Line@data[[All, 2 ;;]]}, BoxRatios -> 1, Axes -> Automatic];

frames = Table[Show[g1, Graphics3D[{Red, Sphere[data[[i, 2 ;;]], 5]}], 
    PlotLabel -> data[[i, 1]], SphericalRegion -> True, 
    ImageSize -> Medium, ImagePadding -> 20, 
    PlotRange -> {{0, 200}, {0, 200}, {0, 200}}], 
  {i, 1, Length @ data}];

ListAnimate[frames]