R绘图图，线不垂直

Question

我正在尝试在R上绘制图表，我已经使用此代码来显示图表：

x<-seq(-2*pi,2*pi, length=100)
f<-(sin(x))+pi/4

 g<-(sin(x))*(x>=-2*pi&x<=-pi)+(sin(x))*(x>=0&x<=pi)+(-pi/4*(x>=-pi&x<=0)+(-pi/4*(x>=pi&x<=2*pi)))

plot(x,g,type="l",lty=1, col=3:1, xlim=c(-7,7), ylim=c(-1,2))
lines(x,f,lty=2, col=2)

legend(-6.8,-1,c("g(x)","f(x)"), lty=c(1,2), col=c(3,2))

但是我不确定为什么-pi和0之间的线和pi＆amp; 2 * pi，不是完全垂直的。我怎么能改变这个。

编辑很感激抱歉，不太确定如何在此处正确编辑，提前感谢。

Answer 1

我认为线条不是垂直的，因为x轴的离散化太粗糙了。如果在定义x的第一行中将长度参数设置为更高的值（比如10000），则该行将显得更加垂直（尽管它永远不会完全垂直）

x<-seq(-2*pi,2*pi, length=10000)