结合R中的两个图

Question

我希望将观察到的值与拟合值进行比较。为此，我决定在R中使用一个情节。我想要做的是在同一个情节上绘制X对Y和X对Y.fitted。我写了一些代码，但它不完整。我的情节需要如下所示。在图中，圆和十字分别表示观察值和拟合值

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)