Return to Answer

Fixed typo

Source Link

edited Sep 30, 2014 at 13:20

244.7k
18
350
774

YouThe OP's analysis of what it looks like seems to be exactly right. I think it must be a bug. A (sort of ugly) workaround is to removed the unstyled points:

ListPlot[Style[{#1, #2}, PointSize[Abs[#2]/50], Hue[#2]] & @@@ 
   data] /. Point[{{_, _}, {_, _} ..}] -> {}

Mathematica graphics

You analysis of what it looks like seems to be exactly right. I think it must be a bug. A (sort of ugly) workaround is to removed the unstyled points:

ListPlot[Style[{#1, #2}, PointSize[Abs[#2]/50], Hue[#2]] & @@@ 
   data] /. Point[{{_, _}, {_, _} ..}] -> {}

Mathematica graphics

The OP's analysis of what it looks like seems to be exactly right. I think it must be a bug. A (sort of ugly) workaround is to removed the unstyled points:

ListPlot[Style[{#1, #2}, PointSize[Abs[#2]/50], Hue[#2]] & @@@ 
   data] /. Point[{{_, _}, {_, _} ..}] -> {}

Mathematica graphics

Source Link

created Sep 29, 2014 at 19:35

Michael E2

244.7k
18
350
774

You analysis of what it looks like seems to be exactly right. I think it must be a bug. A (sort of ugly) workaround is to removed the unstyled points:

ListPlot[Style[{#1, #2}, PointSize[Abs[#2]/50], Hue[#2]] & @@@ 
   data] /. Point[{{_, _}, {_, _} ..}] -> {}

Mathematica graphics