R 将 for 循环合并到管道中以计算多个列的百分位排名

问：

dfW %>%
  group_by(Grade,year) %>%
  mutate(pctRank.x = rank(x)/length(x))

我使用上面的代码来计算按年级和年份分组的百分位排名。

我不仅将其应用于名为 x 的列，而是有大约 15 种不同的列（例如，a、b 、c......等）。对于这些列中的每一个，我想得到一个新的来存储百分位排名，如 pctRank.a、pctRank.b 等......在 dfW 中。有没有办法合并“for循环”来加快速度？

谢谢！