2017-04-19 2 views
0

이 코드를 사용하여 두 샘플에 대한 경험적 누적 분포 함수를 생성합니다. 그들). 나는 같은 줄거리에 넣고 싶습니다만, 다음 명령을 실행하면 모든 것이 정말로 겹쳐집니다 [그림 1]. 이런 식으로 할 수있는 방법이 있습니까 [그림 2 참조] (또한 그림이 사라지고 그림 2처럼 선을 그려야합니다).두 개의 샘플에 대한 경험적 누적 분포 함수를 만들고 동일한 플롯에 그 플롯을 넣으 려합니다. [R]

plot(ecdf(sample[,1]),pch = 1) 
par(new=TRUE)   
plot(ecdf(sample[,2]),pch = 2) 

사진 1 : https://www.dropbox.com/s/sg1fr8jydsch4xp/vanboeren2.png?dl=0

사진 2 : https://www.dropbox.com/s/erhgla34y5bxa58/vanboeren1.png?dl=0

업데이트 : 나는 여전히 (모양의 측면에서) 매우 가까운이

df1 <- data.frame(x = sample[,1]) 
    df2 <- data.frame(x = sample[,2]) 
    ggplot(df1, aes(x, colour = "g")) + stat_ecdf() 
    +geom_step(data = df2) 
    scale_x_continuous(limits = c(0, 5000)) ` 

를하고있는 중이 야 그것들을 같은 음모에 넣을 수는 없습니다.

+0

당신이 두 그래프의 x 축에 동일한 한계를 설정해야합니다. [this] (http://stackoverflow.com/questions/42517471/my-parabola-shifts-along-the-x-axis-as-i-change-x-lim/42517775#42517775)가 도움이되는지 확인하십시오. 회신에 감사드립니다. –

+0

어떻게? –

+0

[Here] (http://stackoverflow.com/questions/3606697/how-to-set-limits-for-axes-in-ggplot2-r-plots)은 아직 대답 할 수없는 답변 중 하나입니다. –

답변

0

기본 줄거리로이 시도 :

df1 <- data.frame(x = runif(200,1,5)) 
df2 <- data.frame(x = runif(200,3,8)) 

plot(ecdf(df1[,1]),pch = 1, xlim=c(0,10), main=NULL) 
par(new=TRUE)   
plot(ecdf(df2[,1]),pch = 2, xlim=c(0,10), main=NULL) 

두 그래프 (가 모두 잘못 중첩보고 제거하려고) 지금 같은 xlim 있습니다. main=NULL 제목

결과를 제거합니다

enter image description here

+0

전설 넣는 법을 알고 있습니까? 나는 색깔로 그것을하는 방법을 안다. 그러나 나는 그것을 여기에서 어떻게 할 수 있냐? –

+0

'legends'는 플롯에서 범례를 설정하는 함수입니다. –

관련 문제