산점도 애니메이션

Question

아래 형식의 데이터 세트가 있습니다.

{time,x_pos,y_pos,z_pos}

3D리스트 포인트 플롯에서 시간에 따른 좌표 {x, y, z} 변화를 보여주는 애니메이션을 만들고 싶습니다. 누구든지 나에게 아이디어를 줄 수 있습니까? 최종 애니메이션은 다음과 같아야합니다. 표시기 (녹색 원)는 시간과 함께 움직이고 있습니다 (그림 위에 표시됨). 데이터를 공유하지 못해 죄송합니다. 감사합니다!

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]