Re: Plotting just specific points

*To*: mathgroup at smc.vnet.net*Subject*: [mg54095] Re: [mg54043] Plotting just specific points*From*: "David Park" <djmp at earthlink.net>*Date*: Thu, 10 Feb 2005 02:46:56 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Zak, Here is one method. First convert your points to xy pairs. a = {5, 1, 2, 2, 6, 7, 2, 2, 8, 2}; b = Transpose[{Range[Length[a]], a}] {{1, 5}, {2, 1}, {3, 2}, {4, 2}, {5, 6}, {6, 7}, {7, 2}, {8, 2}, {9, 8}, {10, 2}} Then plot the points by mapping a point routine onto the list of points. The 2 points are plotted in Red and the other points are plotted in LightGray. Needs["Graphics`Colors`"] Show[Graphics[ {AbsolutePointSize[4], If[Part[#, 2] == 2, {Red, Point[#]}, {LightGray, Point[#]}] & /@ b}], Frame -> True, PlotLabel -> "Points with Value 2 in Red", Background -> Linen, ImageSize -> 400]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: zak [mailto:chocolatez at gmail.com] To: mathgroup at smc.vnet.net if i have the list: a={5,1,2,2,6,7,2,2,8,2} and in the ListPlot[a] i want to show only the points wich represent only the "2" while preserving the positions of the "2" in the list, so i could focus my attention to a specific wanted values, how could i do that or even better if it is possible to plot the whole values of ListPlot[a] while making the points "2" in red color as an example. thanks zak