作为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]]