dplyr's mutate
我想通过使用函数 将两列相乘。
但是,我不想为每个变异条件写一个新行,而是使用存储在向量中的列的名称var1
和var2
. 例如,最后我想在我现有bankdata
的列中添加一个附加列,result1
其中包含通过将列现金和贷款相互相乘的结果。这将一直持续到创建了 3 个新列。
可重现的代码:
bankname <- c("Bank A", "Bank B", "Bank C", "Bank D", "Bank E")
bankid <- c(1, 2, 3, 4, 5)
year <- c(1881, 1881, 1881, 1881, 1881)
totass <- c(244789, 195755, 107736, 170600, 32000000)
cash <- c(7250, 10243, 13357, 35000, 351266)
bond <- c(20218, 185151, 177612, 20000, 314012)
loans <- c(29513, 2800, NA, 5000, NA)
bankdata <- data.frame(bankname, bankid, year, totass, cash, bond, loans)
向量var1和var2包含我要相乘的列名 ( cash*loans, bond*cash, loans*bankid
),输出是新列的名称:
var1 <- c("cash", "bond", "loans")
var2 <- c("loans","cash", "bankid")
output <- c("result1", "result2", "result3")
我想做类似这样的事情:
bankdata %>%
mutate_at(.funs = funs(output = var1*var2), vars(var1, var2))
bankdata %>%
mutate_at(.funs = funs(result1 = cash*., result2 = bond*., result3 = loans*.), vars(var2))