如何在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

在同一思路中，我如何使用transmute将x和y的x乘以z d？

tibble

Answer 1

您可以使用

d <- tibble(x = c(1,-1), y=c(2,3), z= c(4,5))

或者如果您有两列以上

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

请注意，如果您使用的是旧版本的d %>% mutate_at(vars(-x), ~.x*x) 软件包，则必须使用略有不同的语法，如下所示：

dplyr