r - 確率を示すy軸でRにccdfを描く方法

Question

Plotting CCDF of walking durationsによると、次のように ccdf プロットを生成しました。

ccdf<-function(views,density=FALSE)
  {
    freq = table(views)
    X = rev(as.numeric(names(freq)))
    Y =cumsum(rev(as.list(freq)));
    data.frame(x=X,count=Y)
  }
library(ggplot2)
qplot(x,count,data=ccdf(views),log='xy')

Y 軸 = x 値のカウントですが、Y = P[X >= x] を取得したいのですが、どうすればそれを行うことができますか?

Answer 1

あなたのデータがどのように見えるか正確にはわかりませんが、あなたが望むように聞こえます：

ccdf<-function(views,density=FALSE)
  {
    freq = table(views)
    X = rev(as.numeric(names(freq)))
    Y =cumsum(as.list(freq));          #not reversed
    Y=(max(Y)-Y)/max(Y)                #proportion, beware recursion!
    data.frame(x=X,Cum.Prop=Y)         #name change  
  }
qplot(x,Cum.Prop ,data=ccdf(views),log='xy')

views変数についてもう少し教えていただければ、それが正しく機能していることを確認できます。