Menganimasikan plot pencar

Question

Saya memiliki kumpulan data dengan format di bawah ini

{time,x_pos,y_pos,z_pos}

Saya ingin membuat animasi yang menunjukkan koordinat {x, y, z} berubah seiring waktu dalam plot titik daftar 3D. Adakah yang bisa memberi saya ide? Animasi terakhir akan terlihat seperti berikut. Indikator (lingkaran hijau) bergerak seiring waktu (ditunjukkan di atas gambar). Saya minta maaf karena saya tidak dapat membagikan data. Terima kasih!

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]