百分位数的计算？

这个问题我也想了比较长的时间，因为要同时考虑到频数和数值。没有找到合适的函数，但是找到了一个间接地方法。
也就是说，你可以找出比当前值大的数据的个数或者行数，然后除以总的行数，从而得到这个数在这一系列数据中的大致的百分比值。
round((nrow(hk[hk$x>=hk$X[hk$date=="2016-06-08"],])/nrow(hk))*100,2)

bfw <- function(a,A)
{
  A <- sort(A);
  which.min(sort(A)-a)/length(A)*100
}