Сочетание двух графиков в R

Question

Я хочу сравнить наблюдаемые значения с установленными. Для этого я решил использовать сюжет в R. То, что я хочу сделать, это построить X vs Y и X vs. 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)