Mathematica, Wolfram Language, Plots, Latex.
-> 2], MaTeX ["\\sin \\alpha", Magnification -> 2]}, FrameTicks -> { {Table[{j, MaTeX[j, Magnification -> 1.8]}, {j, Range[-1.5, 1.5, 0.5]}] (* y axis *), None}, {Table[{j, MaTeX[ToString[j/\\[Pi]*180] <> "^\\circ",Magnification -> 1.8]}, {j, Range[0, 2 \\[Pi], \\[Pi]/2]}] (* x axis *), None} } ]