如何用第二个值填充数据框？

Question

我有一个包含二进制 1 和 0 的数据框，我想用第二个数据框的一组数据填充

真实的数据帧有 1000 行，所以有一个快速的方法会很好。

一些示例数据：

data <- data.frame(array(sample(c(0,1),25,replace=TRUE),dim=c(6,4)))
colnames(data) <- c("sp1","sp2","sp3","sp4")
size <- data.frame(array(c("sp1","sp2","sp3","sp4",13,16,14,12),dim=c(4,2)))

> data
  sp1 sp2 sp3 sp4
1   1   1   1   0
2   0   0   1   0
3   1   1   0   0
4   0   1   0   1
5   0   0   1   0
6   0   0   0   0
> size
   X1 X2
1 sp1 13
2 sp2 16
3 sp3 14
4 sp4 12

我想要一个像这样的数据框

    sp1 sp2 sp3 sp4
1   13  16  14  0
2   0   0   14  0
3   13  16  0   0
4   0   16  0   12
5   0   0   14  0
6   0   0   0   0