r - 如何动态 "mutate"R 中的数据帧？

Question

假设我想记录数据框中的转换列，比如 iris 数据，并为每个所需列动态创建后缀为 _log 的新列。

我想要实现的是:

df$Sepal.Length_log <- log (df$Sepal.Length)
df$Sepal.Width_log <- log (df$Sepal.Width)
df$Petal.Length_log <- log (df$Petal.Length)
df$Sepal.Width_log <- log (df$Sepal.Width)  

但是当您的数据有很多列要转换时，这将是一项繁琐的任务，所以我想使用 dplyr 包的循环和 mutate 函数动态地实现这一点，我不成功的 naive 试验是:

library (dplyr)
data(iris)
varLabel <- c('Sepal.Length','Sepal.Width','Petal.Length','Petal.Width')
for (i in 1:length (varLabel)) {
  varNew <- paste (varLabel[i],'log',sep='_')
  iris <- dplyr::mutate (iris,varNew=log (varLabel[i])) # problem arises here
}

我收到此错误:错误:数学函数的非数字参数

我搜索了一个解决方案，最相关的似乎是这个 tutorial关于标准和非标准评估，这post和 that还有一个，但我不知道如何从那里借用解决方案。任何帮助将不胜感激。

注意:
我想在数据集中同时包含旧列和新列。

Answer 1

试试这个

logiris<-data.frame(lapply(varLabel,function(x){log(iris[,x])}))
names(logiris)<-paste0("Log-",varLabel)
iris<-cbind(iris,logiris)