作为MMA的新手，写论文遇到了画图的问题，很久没想到解决的办法，特来请教。
我想只把下面的粗线改成 双点划线 或者 那种“*-*-*”（*或者△都行）这样的线，其他的线型不动；如果只改动PlotStyle 里面的参数，可行吗？请问该如何操作？
如果上述方法不行，整体该怎么改？感谢帮助，人生第一篇论文，谢谢！
绘图代码如下：
Plot[{p2[0, 0], p2[1, 1], p2[2, 2], p2[3, 3], p2[4, 4]}, {r, 0, 1},
PlotStyle -> {{Black, Thin}, {Black, Thick}, {Black, Dotted}, {Black,
DotDashed}, {Black, Dashed}}, PlotRange -> {0, 2}, Frame -> True,
FrameLabel -> {Style["\!\(\*
StyleBox[\"r\",\nFontSlant->\"Italic\"]\)", 15], Style["\!\(\*
StyleBox[SuperscriptBox[\"\[EmptyUpTriangle]p\", \"2\"],\nFontSlant\
->\"Italic\"]\)", 15]}, PlotLegends -> Placed[{"\!\(\*
StyleBox[\"m\",\nFontSlant->\"Italic\"]\)=0", "\!\(\*
StyleBox[\"m\",\nFontSlant->\"Italic\"]\)=1", "\!\(\*
StyleBox[\"m\",\nFontSlant->\"Italic\"]\)=2", "\!\(\*
StyleBox[\"m\",\nFontSlant->\"Italic\"]\)=3", "\!\(\*
StyleBox[\"m\",\nFontSlant->\"Italic\"]\)=4"}, Right]]

plotstyle，你查阅一下这个函数的说明即可

PlotTheme -> "Monochrome"

把Thick换成Dashing[{.02, .01, .01, .01}]
查一下Dashing的文档可以画出任意的点划线

对于想画出更多花样的线条，我能想到的方案只有把函数转化为点集，用ListPlot画图，然后用PlotMarkers指定标记，但是要想画出足够光滑的曲线就要取足够多的点，而PlotMarkers的位置也是由点决定的，二者就不太好平衡，只能算一个比较dirty的解决方案吧。
data=Table[{i,j E^-(10i)},{j,1,5},{i,0,1,.02}];
ListPlot[data,Joined->True,PlotMarkers->{"",{"\[FilledUpTriangle]",12},"","",""},PlotStyle->{{Black,Thin},{Black,Dashing[{0.07,0.03}]},{Black,Dotted},{Black,DotDashed},{Black,Dashed}}]
（后面的参数和
lz
都是一样的）

Plot画一幅ListPlot画一幅就行了，注意标签部分要强制指定LineLegend：
style = {{Black, Thin}, {Black, Dashing[{0.07, 0.03}]}, {Black, Dotted}, {Black,
DotDashed}, {Black, Dashed}};
data = Table[{i, j E^-(10 i)}, {j, 1, 5}, {i, 0, 1, .2}];
ListPlot[data, PlotMarkers -> {"", {"\[FilledUpTriangle]", 12}, "", "", ""},
PlotStyle -> style, PlotLegends -> LineLegend@Automatic, PlotRange -> All]~Show~
Plot[Table[j E^-(10 i), {j, 1, 5}] // Evaluate, {i, 0, 1}, PlotStyle -> style,
PlotRange -> All]
我只调了需要展示的部分，其他的按你自己的调就行了。