我正在思考dplyr中mutate_each_函数的SE实现。我想要做的是从DF中的一个列中减去每个列中的值。
以下是使用鸢尾花数据集的最小工作示例(我删除了'Species'列,以便所有数据都是数字)。我从每一列中减去了Petal.Width列。但我需要将列名作为变量,例如"My.Petal.Width"。
以下是使用鸢尾花数据集的最小工作示例(我删除了'Species'列,以便所有数据都是数字)。我从每一列中减去了Petal.Width列。但我需要将列名作为变量,例如"My.Petal.Width"。
# Remove Species column, so that we have only numeric data
iris_numeric <- iris %>% select(-Species)
# This is the desired result, using NSE
result_NSE <- iris_numeric %>% mutate_each(funs(. - `Petal.Width`))
# This is my attempt at using SE
SubtractCol <- "Petal.Width"
result_SE <- iris_numeric %>% mutate_each_(funs(. - as.name(SubtractCol)))
# Second attempt
SubtractCol <- "Petal.Width"
Columns <- colnames(iris_numeric)
mutate_call = lazyeval::interp(~.-a, a = as.name(SubtractCol))
result_SE <- iris_numeric %>% mutate_each_(.dots = setNames(list(mutate_call), Columns))
我遇到了各种错误:
Error in colwise_(tbl, funs_(funs), vars) :
argument "vars" is missing, with no default
Error in mutate_each_(., .dots = setNames(list(mutate_call), Columns)) :
unused argument (.dots = setNames(list(mutate_call), Columns))
请帮忙,非常感谢。