mathematica-画出关于y=x对称的图像

Module[{sin}, sin = Plot[Sin@x, {x, 0, 2 Pi}];
 Show[{sin, Graphics[
    {Dashed, InfiniteLine[{{0, 0}, {1, 1}}]}],
   sin /. 
    line_Line :> 
     GeometricTransformation[line, ReflectionTransform[{-1, 1}]]
   }, AspectRatio -> 1, PlotRange -> All]]