如何在R中的同一绘图上绘制多条线？

我有4个线性方程组。我使用带par的？曲线（plot=new），但它会覆盖直线，而不是绘制平行线

y<-2*x+1
y<-2*x+3
y<-(-2)*x+1
y<-(-2)*x+3

---

y这可能就是你要找的吗？
我只是在这里随机生成了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)

set.seed（42）；这可能是你想要的吗？
我只是在这里随机生成了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)

set.seed（42）；这可能是你想要的吗？
我只是在这里随机生成了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)

set.seed（42）；这可能是你想要的吗？
我只是在这里随机生成了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)

set.seed（42）；x或者您可以添加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="")

limy=c（-4,4）
limx=c（-4,4）
曲线（y或您可以添加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="")

limy=c（-4,4）
limx=c（-4,4）
曲线（y或您可以添加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="")

limy=c（-4,4）
limx=c（-4,4）
曲线（y或您可以添加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="")

limy=c（-4,4）
limx=c（-4,4）
曲线（y用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

x使用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

x使用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

x使用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

x您是否已选中并全部选中？
curve
中有一个
add
参数。您是否已选中并全部选中？
curve
中有一个
add
参数。
curve
中有一个
add
参数。您是否已选中并全部选中？有一个<代码>在
曲线中添加
参数
。它可以工作，但当我使用我的数据时，只会显示一行。A1为了包含其他行，需要设置
ylim
，以包含模型生成的所有值范围。例如，如下面的答案所示。请注意，在您在注释中给出的数据中有一些行似乎是平行的，不交叉。它可以工作，但当我使用我的数据时，只会显示一行。A1为了包含其他行，您需要设置
ylim
，以包含模型生成的所有值范围。例如，如下面的答案所示。请注意，在您在注释中给出的数据中，有些行似乎是平行且不交叉。它可以工作，但当我使用我的数据时，只会显示一行。A1为了包含其他行，需要将
ylim
设置为包含模型生成的所有值范围。例如，如下面的答案所示。请注意，在您在注释中给出的数据中，有些行似乎是平行的d不交叉。它可以工作，但当我使用我的数据时，只会显示一行。A1为了包含其他行，需要将
ylim
设置为包含模型生成的所有值范围。例如，如下面的答案所示。请注意，在您在注释中给出的数据中，有些行似乎是平行的，并且不交叉党卫军。