маргинальный итог в таблицах

У меня есть фрейм данных с рядом инфекций, выявленных из клинических изолятов в разные даты.

Пока что я организовал данные в форму, с которой хочу начать работать. Я пытаюсь подготовить серию таблиц таблиц для описательной статистики отчета.

Я использовал ftable и получил следующее:

onset.types <- ftable(SAB$Onset,SAB$MRSA.Type,year(SAB$Collection.Date))
                             2005 2006 2007 2008 2009 2010

Community                     454  472  512  499  525  512
          AUS-2/3-like         28   23   27   29   32   38
          EMRSA-15-like         9    4    4    9    8    8
          nmMRSA               40   47   53   39   64   60
          Other mMRSA           1    3    3   11    5    9
          unclassified MRSA     0    2    0    0    1    1
Hospital                      163  163  156  164  149  165
          AUS-2/3-like         31   33   27   31   29   28
          EMRSA-15-like         3    8    5    9    4    3
          nmMRSA               10    9   13   17   13   12
          Other mMRSA           5    1    6    2    3   10
          unclassified MRSA     2    0    1    0    0    0

Два вопроса:

1: Как мне вычислить предельные итоги

2: Есть ли простой способ вычислить проценты как ну и еще раз подсчет с предельным итогом

Я пробовал эпитулы, и я не нашел его настолько полезным, как мне бы хотелось.

Большое спасибо.