Mathematica 13.2.x绘图标记截断问题求助（兼容11.0分辨率模式）

问题背景 #

在Mathematica 13.2.0和13.2.1版本中，使用ListPlot时部分自定义或自动的绘图标记（PlotMarkers）出现截断现象，但在11.0版本显示正常。为保持绘图尺寸与11.0版本一致，已启用全局设置：

CurrentValue[$FrontEnd, "ScreenResolutionCompatibilityMode"] = True

问题复现代码 #

示例1：自定义绘图标记截断

ListPlot[{{1, 2, 3, 5, 8}, {2, 3, 6, 9, 10}, {4, 5, 7, 10, 12}}, 
 PlotMarkers -> {Graphics[{EdgeForm[], Disk[]}, ImageSize -> 10], 
   Graphics[], 
   Graphics[{EdgeForm[], Polygon[{{1, 0}, {0, Sqrt[3]}, {-1, 0}}]}, 
    ImageSize -> 10], 
   Graphics[{EdgeForm[], 
     Rotate[Polygon[{{1, 0}, {0, Sqrt[3]}, {-1, 0}}], 180 Degree]}, 
    ImageSize -> 10]}]

（现象：自定义的圆形、多边形标记边缘被截断）

示例2：自动大尺寸标记截断

ListPlot[{{1, 2, 3, 5, 8}, {2, 3, 6, 9, 10}, {4, 5, 7, 10, 12}}, 
 PlotMarkers -> {Automatic, Large}] (*Plotmarkers are getting cut off*)

（现象：自动生成的大尺寸标记边缘被截断）

已尝试添加ImagePadding->1，但会导致绘图标记过小，并非最优解。

可行修复方案 #

方案1：为自定义绘图标记添加内边距（Padding） #

在自定义Graphics对象中加入Padding参数，扩展标记的绘制范围，避免被裁剪：

ListPlot[{{1, 2, 3, 5, 8}, {2, 3, 6, 9, 10}, {4, 5, 7, 10, 12}}, 
 PlotMarkers -> {Graphics[{EdgeForm[], Disk[]}, ImageSize -> 10, Padding -> 1], 
   Graphics[], 
   Graphics[{EdgeForm[], Polygon[{{1, 0}, {0, Sqrt[3]}, {-1, 0}}]}, 
    ImageSize -> 10, Padding -> 1], 
   Graphics[{EdgeForm[], 
     Rotate[Polygon[{{1, 0}, {0, Sqrt[3]}, {-1, 0}}], 180 Degree]}, 
    ImageSize -> 10, Padding -> 1]}]

Padding值可根据标记大小调整，比如Padding -> 0.5或Padding -> 2，确保标记边缘不被裁剪。

方案2：调整PlotRangePadding而非全局ImagePadding #

针对ListPlot单独设置PlotRangePadding，既扩展绘图范围容纳标记，又不会缩小标记尺寸：

ListPlot[{{1, 2, 3, 5, 8}, {2, 3, 6, 9, 10}, {4, 5, 7, 10, 12}}, 
 PlotMarkers -> {Automatic, Large},
 PlotRangePadding -> Scaled[0.05]]

Scaled[0.05]表示按绘图范围的5%添加内边距，也可使用固定值如PlotRangePadding -> {0.5, 0.5}，根据实际显示效果调整。

方案3：手动指定标记的边界框（ImagePadding） #

对于自定义标记，也可以直接设置ImagePadding在Graphics内部，精准控制边界避免截断：

Graphics[{EdgeForm[], Disk[]}, ImageSize -> 10, ImagePadding -> 1]

此方法能保持标记原始大小，同时避免边缘被裁剪。

方案4：临时切换前端渲染模式（Workaround） #

如果上述方法无效，可临时关闭ScreenResolutionCompatibilityMode，绘制完成后再恢复：

(* 临时关闭兼容模式 *)
CurrentValue[$FrontEnd, "ScreenResolutionCompatibilityMode"] = False;
(* 生成绘图 *)
ListPlot[{{1, 2, 3, 5, 8}, {2, 3, 6, 9, 10}, {4, 5, 7, 10, 12}}, 
 PlotMarkers -> {Automatic, Large}];
(* 恢复兼容模式 *)
CurrentValue[$FrontEnd, "ScreenResolutionCompatibilityMode"] = True;

注意：此方法可能会改变绘图整体尺寸，需根据需求调整。

内容的提问来源于stack exchange，提问作者Priya