Color each data point

Question

I want to color each point in ListPlot using custom markers when there are only values of the points, i.e. the data is in the form {1,2,3,...}. There are many related questions (e.g. here and here), but the solutions are either to use data in the form {x,y}, convert it to the list of lists, and then effectively color each subplot separately

data1 = {{{1, 2}, Red}, {{2, 3}, Blue}};
ListPlot[
   List /@ data1[[;; , 1]], 
   PlotMarkers -> 
      Apply[Graphics[{#, Rectangle[]}, ImageSize -> 15] &, List /@ data1[[;; , 2]], {1}]
]

or to color each point using Style, in which case using custom markers doesn't work.

data2 = {Style[2, Red], Style[3, Blue]};
ListPlot[data2, PlotMarkers -> Graphics[{Rectangle[]}, ImageSize -> 15]]

Is there a solution when the data doesn't have the x coordinate?

Answer 1

I'm with swish. I think it's easy to add the x-coordinate.

data = {{2, Red}, {3, Blue}, {1, Green}};
Module[{pts, markers},
  pts = MapThread[{{#1, #2}} &, {Range @ Length[data], data[[All, 1]]}];
  markers = 
    Graphics[{#, Rectangle[]}, ImageSize -> 15] & @@@ List /@ data[[All, 2]];
  ListPlot[pts, PlotMarkers -> markers]]

Update

If you want to specify the plot range, then define a custom version of ListPlot. Like so:

myListPlot[data_, min_, max_] :=
  Module[{xcoords, pts, markers},
    xcoords = Subdivide[min, max, Length[data] - 1];
    pts = MapThread[{{#1, #2}} &, {xcoords, data[[All, 1]]}];
    markers = 
      Graphics[{#, Rectangle[]}, ImageSize -> 15] & @@@ List /@ data[[All, 2]];
    ListPlot[pts, PlotMarkers -> markers]]

myListPlot[data, 10, 20]

plot