Mathematica 解决导出图片的刻度线又短又粗丑爆炸的问题

最新推荐文章于 2025-02-21 09:28:12 发布

Flaribbit

最新推荐文章于 2025-02-21 09:28:12 发布

阅读量4k

点赞数 4

分类专栏： Mathematica

本文链接：https://blog.csdn.net/u011086331/article/details/101557451

版权

Mathematica 专栏收录该内容

45 篇文章

订阅专栏

通过自定义刻度线提升图表展示效果，实现更精确的数据可视化，同时分享了导出高分辨率图片的技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

经过一番折腾，发现最好的方法还是自定义刻度线，而且这也是最自由的方法了，而且实现起来还不复杂

查找替换的方法试过了出图也不满意

原代码：

ListLinePlot[data,
  PlotStyle -> Directive[Black, Thin],
  MeshStyle -> Black, PlotMarkers -> "\[FilledDiamond]",
  Frame -> {{True, False}, {True, False}},
  FrameLabel -> {s@"Temperature T/\[Degree]C", s@"Pressure P/MPa"},
  FrameTicksStyle -> 
   Directive[FontFamily -> "Times New Roman", 12, Black],
  FrameStyle -> AbsoluteThickness[1]] /. 
 s[t_] :> Style[t, FontFamily -> "Times New Roman", 12, Black, Italic]

最终代码

ListLinePlot[data,
  PlotStyle -> Directive[Black, AbsoluteThickness@.5],
  MeshStyle -> Black, PlotMarkers -> Style["\[FilledDiamond]", 8],
  Frame -> {{True, False}, {True, False}},
  FrameTicks -> {Table[
     If[Mod[i, 5] == 0, {i, i, {0.02, 0}}, {i, "", {0.01, 0}}], {i, 0, 25}],
    Table[
     If[Mod[i, 5] == 0, {i, i, {0.02, 0}}, {i, "", {0.01, 0}}], {i, 0, 35}]},
  FrameLabel -> {s@"Temperature T/\[Degree]C", s@"Pressure P/MPa"},
  FrameTicksStyle -> 
   Directive[FontFamily -> "Times New Roman", 12, Black]] /. 
 s[t_] :> Style[t, FontFamily -> "Times New Roman", 12, Black, Italic]

导出图片的代码，注意最后的ImageResolution -> 300

Export["1.png",图片 , ImageResolution -> 300]

在这里插入图片描述
最终得到的图片