|
我的图形只是像你的图,应为没有你的原数据,只是参照你图形的样子用最简单的方法画了一个。
a<-c(0,1,2,3,4,5,6,-1,0,1,2,3,4,5)
b<-c(-1,0,1,2,3,4,5,0,1,2,3,4,5,6)
plot(b,a,type="n",axes = F,xlab=".",ylab=".")
abline(h = -1:4, v = -1:5, col = "lightgray", lty=3)
abline(h=0, v=0)
abline(1,1,col="red")
abline(-1,1,col="blue")
segments(1.5,0,1.5,2.5,lty=2)
segments(0,0.5,1.5,0.5,lty=2)
segments(0,2.5,1.5,2.5,lty=2)
segments(0,0.5,-0.5,0.5)
segments(-0.5,0.5,-0.5,2.5)
segments(0,2.5,-0.5,2.5)
segments(3.5,0,3.5,4.5,lty=2)
segments(5.5,4.5,0,4.5,lty=2)
segments(5.5,0,5.5,4.5,lty=2)
|