如何返回数据框中某一列的列名，在不知道具体为第几列的情况下

例如：
dat <- data.frame(a=c(1:3),b=c(4:6))
apply(dat, 2, function(x))    #按列进行数据处理

在function(x)里需要提取输入列的列名，那么如何得到列名？