When I execute this I get this error message:
Coordinate QuantityMagnitude[Missing["UnknownQualifierSyntax"],
"AstronomicalUnit"] should be a triple of numbers, or a Scaled form.
and a pink box'd result without the planets in the graphic:

The problematic portion of the code is
QuantityMagnitude[
EntityValue["Planet",
EntityProperty["Planet", "HelioCoordinates",
"Date" -> DateObject[{2014, 10, 19}]]], "AstronomicalUnit"]
which, for me, returns
{QuantityMagnitude[Missing["UnknownQualifierSyntax"],
"AstronomicalUnit"],
QuantityMagnitude[Missing["UnknownQualifierSyntax"],
"AstronomicalUnit"],
QuantityMagnitude[Missing["UnknownQualifierSyntax"],
"AstronomicalUnit"],
QuantityMagnitude[Missing["UnknownQualifierSyntax"],
"AstronomicalUnit"],
QuantityMagnitude[Missing["UnknownQualifierSyntax"],
"AstronomicalUnit"],
QuantityMagnitude[Missing["UnknownQualifierSyntax"],
"AstronomicalUnit"],
QuantityMagnitude[Missing["UnknownQualifierSyntax"],
"AstronomicalUnit"],
QuantityMagnitude[Missing["UnknownQualifierSyntax"],
"AstronomicalUnit"]}