r - Rでテーブルのリフト値を計算する方法は?`

Question

library(readr)
data1<-read_csv(".../file1")
data2<-read_csv(".../file2")
table2<-table(data1$`_SEGMENT_`,data2$`_SEGMENT_`,data1$Subscribed)

table2これは、行としての data1 セグメント、列としての data2 セグメント、および で 3 番目の次元 '購読済み' の 3 つの変数で作成し'yes'た頻度'no'です。

> table2
, ,  = no

   
       1    2    3    4    5
  1   29  674 5189 7207   88
  2    3  194 1393 2166   39
  3   18  471 2667 5719   77
  4    0    1    2   11    0
  5   18  420 2798 4715   88

, ,  = yes

   
       1    2    3    4    5
  1    0   33  262 1000    1
  2    0   10   65  322    0
  3    0   25  190 1206    2
  4    0    0    1    3    0
  5    0   26  166  943    3

table2?5x5 テーブルと各ポジション値 = の値'yes'/( の値'yes'+ の値'no')に基づいて「はい」のリフト値テーブルを作成する方法

例えばtable_liftvalue[1,2] = 33/(33+674)

> table_liftvalue

       1    2    3    4    5
  1   . 33/(674+33)
  2   .
  3   .
  4   .
  5   .

助けていただければ幸いです。[1]: https://i.stack.imgur.com/1w6mj.png