Mathematica绘图器中标记的自定义间隔
-
24-10-2019 - |
题
我正在尝试在Mathematica(ListLinePlot)中的同一绘图中绘制多个列表,并使用plotmarkers和Plotlegend软件包获取最终数字。问题是Mathematica为每个点都标记了一个标记,这使得很难分辨出哪个标记在地块中。是否可以让绘图标记出现每个n样品(例如每10点100点图)。
目前的指令是绘图标记 - > {自动,小}。
解决方案
如果您想要对情节标记的位置更多的控制 布雷特的答案 给您,然后您可能必须手动放置标记。例如(修改布雷特的示例)
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
ETC...
其他提示
我认为添加类似的东西 Mesh->10
应该为您工作:
data = Accumulate /@ RandomReal[{-1/2, 1}, {3, 100}];
ListLinePlot[data, PlotMarkers -> {Automatic, Small}, Mesh -> 10]
还要记住你可以使用 工具提示 当您将鼠标指针通过它时,导致标记坐标弹出:
我在评论中所描述的例子。标记的行为不正确。
显然我还不能发布图像,但是运行以下代码
data = Accumulate /@ RandomReal[{-1/2, 1}, {3, 100}];
ListLinePlot[data, PlotMarkers -> {Automatic, Small}, Mesh -> 5]
应该给出不当的结果。同样,同一图中的数据和图的数量很大,可以单独选择哪个点,我想保留相同的指令,以适用于不同的图和数据范围,因为它们在每种情况下往往在100至300之间变化,而且我有将它们保存在不同的表中,因为它们在途中的其他计算中使用。
Belisarius发布的情节,运行上面的代码
不隶属于 StackOverflow