结合R中的两个情节

Question

我希望将观测值与拟合值进行比较。 为此，我决定在R中使用一个图。我要做的是在同一图上绘制X对Y和X对Y。 我已经写了一些代码，但是还不完整。 我的情节需要看起来像下面这样。 在图上，圆圈和十字分别代表观测值和拟合值

set.seed(1)
x <- runif(8,0,1)
y <- runif(8,0,1)
y.fitted <- runif(8,0,1)
plot(x,y,pch=1)
plot(x,y.fitted,pch=5)

Answer 1

在您的代码中，第二个plot不会将点添加到现有图，而是创建一个新图。 您可以+使用功能points添加到现有绘图中。

plot(x, y, pch = 1)
points(x, y.fitted, pch = 4)

Answer 2

第二次运行情节将创建一个新情节。 您可以使用points

set.seed(1)
x <- runif(8,0,1)
y <- runif(8,0,1)
y.fitted <- runif(8,0,1)
plot(x,y,pch=1)
points(x,y.fitted,pch=5)

Answer 3

ggplot2的解决方案可提供更好，更整洁的图形外观：

library(ggplot2)

df = data.frame(x=runif(8,0,1),y=runif(8,0,1),y.fitted=runif(8,0,1))
df = melt(df, id=c('x'))

ggplot() + geom_point(aes(x=x,y=value, shape=variable, colour=variable), df)