我有4个线性方程。我使用?曲线与par(plot = new)但它会覆盖线而不是绘制平行线。
y<-2*x+1
y<-2*x+3
y<-(-2)*x+1
y<-(-2)*x+3
如何在单个图上绘制这四条线以在图上看到平行四边形。
答案 0 :(得分:1)
这可能是您正在寻找的吗? 我只是在这里随机生成X值。
set.seed(42);x<-rnorm(100)
plot(x,2*x+1,type="l",xlab="X",ylab="Y")
lines(x,2*x+3)
lines(x,(-2)*x+1)
lines(x,(-2)*x+3)
答案 1 :(得分:1)
或者你可以添加xlim和ylim
limy=c(-4,4)
limx=c(-4,4)
curve(y<-2*x+1,xlim=limx,ylim=limy,ylab="")
par(new=T)
curve(y<-2*x+3,xlim=limx,ylim=limy,ylab="")
par(new=T)
curve(y<-(-2)*x+1,xlim=limx,ylim=limy,ylab="")
par(new=T)
curve(y<-(-2)*x+3,xlim=limx,ylim=limy,ylab="")
答案 2 :(得分:1)
使用ggplot你可以做类似的事情
x <- rnorm(100*1,mean=0,sd=1)
ggplot() + geom_line(aes(x,2*x+1)) + geom_line(aes(x,2*x+3)) etc