Mathematica PlotMarkers中标记的自定义间隔

Question

我试图在Mathematica(ListLinePlot)中的同一个绘图中绘制多个列表,并使用PlotMarkers和PlotLegend包来获得最终数字.问题在于Mathematica为每个点添加了一个标记,这使得很难分辨哪个标记在图中的位置.是否有可能每n个样本出现一个绘图标记(例如,对于100点绘图,每10个点).

目前的指令是PlotMarkers - > {Automatic,Small}.

Answer 1

如果您想要比布雷特的答案给您更多的控制绘图标记的位置，那么您可能必须手动放置标记。例如（修改Brett的例子）

data = Accumulate /@ RandomReal[{-1/2, 1}, {3, 100}];
col = {Red, Blue, Green};
decimate[i_] := {col[[i]], PointSize -> Medium, 
  Point /@ Transpose[{Range[1, 100, 10], data[[i, 1 ;; -1 ;; 10]]}]}
ListLinePlot[data, PlotStyle -> col, Epilog -> Table[decimate[i], {i, 3}]]

当然Point可以替换为您想要的任何图形对象 - 例如Text，Inset等等......