如何在R中将两个具有不同尺寸的小对象相乘？

Question

当我将向量乘以矩阵时，我会做：

mat <- matrix(c(c(2,3),c(4,5)),2)
vec <- c(1,-1) 
vec * mat

我明白了

     [,1] [,2]
[1,]    2    4
[2,]   -3   -5

但是当我尝试对小动作进行类似操作时，例如

library(dplyr)
a <- tibble(x = c(1,-1))
b <- tibble(y = c(2,3), z = c(4,5))
c <- a*b

我得到了错误，

Error in Ops.data.frame(a, b) : 
  ‘*’ only defined for equally-sized data frames

在同一思路下，如何使用{{1}中的transmute将变量x乘以y和x乘以z } d？

tibble

Answer 1

您可以使用

d %>% mutate_at(vars(c(y, z)), ~.x*x)

或者如果您有两列以上

d %>% mutate_at(vars(-x), ~.x*x)

请注意，如果您使用的是dplyr软件包的旧版本，则必须使用略有不同的语法，如下所示：

d %>% mutate_at(vars(-x), funs(. * x))
d %>% mutate_at(vars(c(y, z)), funs(. * x))