如何繪製CCDF在R 2與Y軸表示概率

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可變我可以確保它工作的權利。