R-通过匹配第二个数据框中的列来乘以选择一个数据框中的列

在R中，我尝试将数据帧（df1）中的选择列与第二个数据帧（df2）中的匹配列相乘。行数不相等（df2仅1），并且有些列我希望保留但不希望相乘。下面是一个示例：

df1 <- data.frame(group = c('A','B','C','A'), var1 = c(1,0,1,0), var2 = c(0,1,1,0))

df2 <- data.frame(var1 = 0.06, var2 = 0.04)

预期结果将是：

Group   var1   var2
A       0.06   0
B       0      0.04
C       0.06   0.04
A       0      0

如果需要，我很高兴调整df2的格式。tidyverse解决方案将是巨大的。

我读过其他一些试图做类似事情的问题，但是我无法让它们在我的情况下起作用

data.frame(Map(function(x,y) if(all(is.numeric(x),is.numeric(y))) x * y
                          else x, df1, df2))
# Multiply's by position not name

提前致谢。