3 deleted 368 characters in body edited Feb 17 '16 at 10:48 Jason B. 50.7k33 gold badges9696 silver badges203203 bronze badges I'm not sure if it'sEdit My previous answer was just a bug but it very may well be. This doesn't happen when you use other Wrapper objectsworkaround, like Tooltip or PopupWindowand it involved putting the color as a graphics directive for the individual plotmarkers.But what seems My thanks to be going on is that it wants@rcollyer for bringing an undocumented option to givemy attention which is the same plot marker and styletrue solution to each sublistthis problem. One way to get your colors back is You just need to useset Method -> {"OptimizePlotMarkers" -> False} ListPlot[Transpose@{Table[ListPlot[Table[ Style[{Cos[t], Sin[2 t]}, Hue[t/(2 Pi)]], {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Automatic]  But there you are using Automatic for the PlotMarkers, what if you want to specify the marker? You can put the color specification in the PlotMarker itself, ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}Automatic, PlotStyleMethod -> PointSize[Medium], PlotMarkers{"OptimizePlotMarkers" -> Evaluate[{Graphics[{Hue[#], Triangle[]False}], .04} & /@ Range[0, 1, 1/20]]]  I'm not sure if it's a bug but it very may well be. This doesn't happen when you use other Wrapper objects, like Tooltip or PopupWindow.But what seems to be going on is that it wants to give the same plot marker and style to each sublist. One way to get your colors back is to use ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Automatic]  But there you are using Automatic for the PlotMarkers, what if you want to specify the marker? You can put the color specification in the PlotMarker itself, ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Evaluate[{Graphics[{Hue[#], Triangle[]}], .04} & /@ Range[0, 1, 1/20]]]  Edit My previous answer was just a workaround, and it involved putting the color as a graphics directive for the individual plotmarkers. My thanks to @rcollyer for bringing an undocumented option to my attention which is the true solution to this problem. You just need to set Method -> {"OptimizePlotMarkers" -> False} ListPlot[Table[ Style[{Cos[t], Sin[2 t]}, Hue[t/(2 Pi)]], {t, 0, 2 Pi, Pi/20}], PlotStyle -> PointSize[Medium], PlotMarkers -> Automatic, Method -> {"OptimizePlotMarkers" -> False}]  2 added 115 characters in body edited Feb 3 '16 at 15:45 Jason B. 50.7k33 gold badges9696 silver badges203203 bronze badges I'm not sure if it's a bug, but it very may well be. This doesn't happen when you use other Wrapper objects, like Tooltip or PopupWindow.But what seems to be going on is that it wants to give the same plot marker and style to each sublist. One way to get your colors back is to use ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Automatic]  But there you are using Automatic for the PlotMarkers, what if you want to specify the marker? You can put the color specification in the PlotMarker itself, ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Evaluate[{Graphics[{Hue[#], Triangle[]}], .04} & /@ Range[0, 1, 1/20]]]  I'm not sure if it's a bug, but what seems to be going on is that it wants to give the same plot marker and style to each sublist. One way to get your colors back is to use ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Automatic]  But there you are using Automatic for the PlotMarkers, what if you want to specify the marker? You can put the color specification in the PlotMarker itself, ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Evaluate[{Graphics[{Hue[#], Triangle[]}], .04} & /@ Range[0, 1, 1/20]]]  I'm not sure if it's a bug but it very may well be. This doesn't happen when you use other Wrapper objects, like Tooltip or PopupWindow.But what seems to be going on is that it wants to give the same plot marker and style to each sublist. One way to get your colors back is to use ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Automatic]  But there you are using Automatic for the PlotMarkers, what if you want to specify the marker? You can put the color specification in the PlotMarker itself, ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Evaluate[{Graphics[{Hue[#], Triangle[]}], .04} & /@ Range[0, 1, 1/20]]]  1 answered Feb 3 '16 at 15:39 Jason B. 50.7k33 gold badges9696 silver badges203203 bronze badges I'm not sure if it's a bug, but what seems to be going on is that it wants to give the same plot marker and style to each sublist. One way to get your colors back is to use ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Automatic]  But there you are using Automatic for the PlotMarkers, what if you want to specify the marker? You can put the color specification in the PlotMarker itself, ListPlot[Transpose@{Table[{Cos[t], Sin[2 t]}, {t, 0, 2 Pi, Pi/20}]}, PlotStyle -> PointSize[Medium], PlotMarkers -> Evaluate[{Graphics[{Hue[#], Triangle[]}], .04} & /@ Range[0, 1, 1/20]]]