r - 如何在 R 中不同维度的两个表之间创建比率表？

Question

表 1 输出:

 <<<   <B0     0   010   011   030   072   080   122   132   1GT   89O   AFG   AGO   ALB   AND   ARE   ARG   ARM   AUS   AUT   AVN 
  1     2      2    1     1     1     1     1     2    10     1     2     2     3    25     1     2    66     7    458   392     1 

表 2 输出:

 042  090  ALB  ARG  AUS  AUT  AZE 
  1    1    2    4   36   75    1 

目标是将两个表中存在的标签合并为一个比率表。我很难过，我尝试的一切都给我带来了维度问题。

期望的输出:

     ALB         ARG         AUS           AUT 
  2/(2+25)    4/(4+66)   36/(36+458)   75/(75+392)

有什么想法吗？我尝试的每种方法都不起作用 >:(

Answer 1

我们可以在 names 上使用 intersect

nm1 <- intersect(names(table1), names(table2))

对它们进行子集化并得到比率

table1[nm1]/(table1[nm1] + table2[nm1])