如题，请问如何在mathematica中作出这种图？就是画出函数图像后，在坐标轴上标注出点的坐标或者标注一个字母。

Plot[Sin@x, {x, 0, 4},
Ticks -> {{{1, 1}, {2, 2}, {Pi, "零点"}}, Automatic},
GridLines -> {{Pi}, {0, 1/2, 1}}]
或者
Plot[Sin@x, {x, 0, 4}, Axes -> False, Frame -> True,
FrameTicks -> {{{1, 1}, {2, 2}, {Pi, "零点"}}, Automatic},
GridLines -> {{Pi}, {0, 1/2, 1}}]