Plot the Orbits of Apollo Asteroids

Visualize the orbits of solar system objects. Apollo-class asteroids are one group of asteroids that crosses the Earth's orbit.

In[1]:=

Graphics3D[{

  AstronomicalData[#, "OrbitPath"] & /@ AstronomicalData["Planet"],

  {Orange, 

   Opacity[.5], (AstronomicalData[#, "OrbitPath"] & /@ 

     AstronomicalData["ApolloAsteroid"])}

  }, PlotRange -> {{-6, 6}, {-6, 6}, {-4, 4}}, Boxed -> False, 

 ViewAngle -> \[Pi]/11]

Out[1]=