解決してないです... labels <- expression (0, pi/2, pi, 3*pi/2, 2*pi) axis (side=1, at = seq(0, 2 * pi, pi / 2), lab = labels)とすると, πが≠に化ける. これの最初の0をPiに labels <- expression (Pi, pi/2, pi, 3*pi/2, 2*pi) axis (side=1, at = s…