두 플롯을 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

플롯을 실행하면 두 번째로 새 플롯이 생성됩니다. 당신은 ggplot2가 더 깔끔한 그래프 전망을주는 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

솔루션을 사용할 수 있습니다

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)