r - 如何在R中绘制ccdf，y轴显示概率

Question

根据Plotting CCDF of walk 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变量的信息，我可以确保它工作正常。