如何在dplyr函数调用中参数化列名

Question

假设我们有以下设置

library(dplyr)
set.seed(10101)
id <- sample(3,20,replace = TRUE)
x <- sample(2,20,replace = TRUE)
df <- data.frame(id,x)

如何参数化以下内容：

df %>% group_by(id) %>% arrange(id) %>% mutate(x.lag=lag(x,1,default=0))

cl <- "x"
cl.lag <- "x.lag.1"

我天真的尝试似乎不起作用：

df %>% group_by(id) %>% arrange(id) %>% mutate(cl.lag=lag(cl,1,default=0))