1. sin = Plot[Sin@x, {x, 0, 2 Pi}];
  2. pts = First@Cases[sin, Line[coords_List] :> coords, Infinity];
  3. Graphics@Point@pts

1.用点勾勒

image.png

2.用线勾勒

  1. Graphics[Line@pts]

image.png

3.填上颜色和坐标轴

  1. Graphics[{Hue[0.67, 0.6, 0.6], Line@pts},
  2. Axes -> Automatic, AspectRatio -> 1/GoldenRatio]

image.png