Мне нужно составить таблицу в R, в которой будет% рожденных детей весом до 2500 г по расе и независимо от того, курит мать или нет

Question

Я пытаюсь использовать функции with() и tapply() для создания таблицы, показывающей процент младенцев, рожденных весом до 2500 г, с разбивкой по расе и курению.

Library(mass)     # needed for birthwt data
Library(plyr)     # needed for mapvalues function

Я переименовал столбцычтобы иметь более описательные имена
Я преобразовал переменные в факторы с описательными именами

with(birthwt, tapply(birthwt.grams, INDEX = list(race, mother.smokes), FUN = mean))

создает следующую таблицу

        No            yes   
Black   2854.000      2504.000  
Other   2815.782      2757.167  
White   3428.750      2826.846  

Мне нужно создать таблицу, подобную следующей

        No      Yes  
Black   20%     30%  
Other   10%     15%  
White   10%     15%