使用来自另一个数据库r的匹配值向数据库添加列

Question

很抱歉，我的问题有点模糊。我有两个独立的数据库（data1作为第一个数据库，data2作为第二个数据库），如下所示：

    100*data1$AllRev/data2$TotRev

数据2：

    data1 <- cbind(data1,100*round(data1[,3]/data2[data2[,1]==data2[,2],2],4))

现在我要添加一个列＆＃34; RevPercent＆＃34;数据1将计算每行的以下值：

    <table version="1.0" border="1" rules="all" cellpadding="10">
        .
        .
        .
    </table>        

但是，如果yr == 2012 for data1，我希望它从data2读取2012年的TotRev以计算上述值。我写了以下代码行，但我肯定得到一个错误：

    <table border="1" rules="all" cellpadding="10">
        .
        .
        .
    </table>        

错误如下：         在data2 [，1] == data2 [，2]中：   较长的物体长度不是较短物体长度的倍数

感谢任何帮助。

由于