3 deleted 368 characters in body
source | link

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]

enter image description here

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]]]

enter image description hereenter image description here

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]

enter image description here

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]]]

enter image description here

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}]

enter image description here

2 added 115 characters in body
source | link

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]

enter image description here

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]]]

enter image description here

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]

enter image description here

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]]]

enter image description here

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]

enter image description here

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]]]

enter image description here

1
source | link

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]

enter image description here

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]]]

enter image description here