为R中数据框中多个列的百分位数排名创建新列

我有一个相当大的数据集（149个变量的4000个OB），我想看看其中许多变量的百分位排名。我已经能够通过以下代码成功生成忽略NA值的百分位等级（我相信）：

    prank <- function(x){
       r <- rank(x)/sum(!is.na(x))*100
       r[is.na(x)]<-NA
       r
    }

---

恶作剧
lappy（DF[，my_colnames，drop=FALSE]，恶作剧）
库（dplyr）；x%>%mutate_each（funs（恶作剧））
感谢您的帮助@Frank和@khasha！
    y <- data.frame(x, t(apply(-x,1,prank)))

    y$V5.pr <- prank(x$V5)