Anima il grafico a dispersione

Question

Ho un set di dati nel formato seguente

{time,x_pos,y_pos,z_pos}

Vorrei fare un'animazione che mostri le coordinate {x, y, z} nel tempo nel grafico dei punti elenco 3D. Qualcuno potrebbe darmi un'idea? L'animazione finale dovrebbe essere la seguente. L'indicatore (cerchio verde) si muove con il tempo (mostrato sopra la figura). Mi dispiace di non aver potuto condividere i dati. Grazie!

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]