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和2 * pi之間的線不完全垂直。 我該如何更改。

編輯表示抱歉，還不太確定如何在此處正確編輯，謝謝。

Answer 1

我認為這些線不是垂直的，因為您對x軸的離散化太粗糙了。 如果在定義x的第一行中將length參數設置為一個較高的值（例如10000），則該行將顯示得更垂直（盡管永遠不會完全垂直）

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