我正在尝试使用with()和tapply()函数来生成一张表格，该表格显示按种族和吸烟状况分类的体重在2500 g以下的婴儿的百分比。
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%