Tag Info

Hot answers tagged

4

You have somehow to segment your data. Here you could use the radius + FindClusters: radius = 14.6; data1 = FindClusters[Select[data, Norm[#] > radius &], 2,Method -> "Agglomerate"]; Show[ ListPlot[data1, PlotRange -> Full, AspectRatio -> 1, PlotStyle -> {Green, Red}], ListPlot[Select[data, Norm[#] < radius ...


4

Though I was expecting to need something fancy I stumbled upon a simple solution: ListLinePlot[data, PlotMarkers -> Graphics[{Disk[]}, ImageSize -> 13], PlotLegends -> Automatic ] The only change is enclosing Disk[] in { }. Looking at the InputForm we see that expressions involving Disk have been changed to e.g.: Graphics[{ Hue[0.67, ...


2

Addressing only the second part of the question it may be solved using: ListLinePlot[Table[n^(1/p), {p, 4}, {n, 10}], PlotMarkers -> {Graphics[{{White, Disk[]}, {Thick, Circle[]}}], 0.05} ] When the first argument of Graphics is a list the style directives are prefixed. Related: How to make PlotMarkers constructed from Graphics track plot style? ...


2

A workaround is to use GeometricTransformation instead of Rotate. By specifying coordinates in the Offset form we can achieve consistent size of markers on the plot and in the legend. The cropping of the markers in the legend can be avoided by increasing their sizes as MinHsuan Peng suggests: ListLinePlot[{Prime~Array~12, Fibonacci~Array~12}, PlotMarkers ...


1

A workaround to question 2 is to increase legend marker size: LineLegend[Automatic, LegendMarkerSize -> {40, 20}]


1

Not sure why PlotRange doesn't work (might need to report wolfram technical support), for workaround you could wrap it with Show: SeedRandom[0] Show[DensityHistogram[ Transpose[{RandomReal[NormalDistribution[], 1000], RandomReal[NormalDistribution[], 1000]}]], PlotRange -> {{0, 3}, {0, 3}}]



Only top voted, non community-wiki answers of a minimum length are eligible