使用dplyr创建新列时出错

Question

library(data.table)    
library(dplyr)
col1<-rep(c("a":"d"),3)
col2<-rep(c(1:4),3)
col3<-rep(c(1:4),3)
col4<-rep(c(1:4),3)
df<-data.table(col1,col2,col3,col4)


v1=c("A","B")
V2=c(1,2)
table<-as.data.table(v1,V2)

ND<-select(data,col1,col2,col3)%>%
  filter(col1==as.character(table$V1))%>%
  mutate(mget(table$v1)=as.numeric(col2)*as.numeric(table$V2))

我收到此错误

Error: unexpected '=' in:
"  filter(col1==as.character(table$V1))%>%
  mutate(mget(table$v1)="

任何人都可以帮我解决我得到的错误吗？我正在尝试创建一个名为obs of v1 column的新列。