Arrays 如何计算r中数组每列中值的比例？

我试图从一个数据集中模拟r中样本比例的抽样分布。以下是我目前掌握的代码：

library(MASS)
phat=replicate(100, sample (Aids2$status, 50, replace = FALSE, prob = NULL), simplify="matrix")
table(phat)["A"]/50

我想这会将数组中每列中“A”的观察数除以50，这样我可以得到100%的“A”，我可以把它们放在柱状图中，但它只是将整个数组中“A”的观察总数除以50，得到39.8，这不是很有用。我想我通过将phat数组转换成一个表，然后尝试在生成的表上使用prop.table，得到了最接近的结果，但这不起作用。下面是代码：

newtable = ftable(phat)
prop.table(newtable, margin=NULL)

---

再一次，我只需要在每50个观察样本中获得“a”的百分比，就可以制作直方图，因此如果有人对此有任何想法，我将不胜感激。

尝试类似于

phat的方法。理论上我应该说“100个向量的列表”，而不是“100个列表”，您可以将某些函数与数据和该函数中的示例相匹配。谢谢您的帮助，但当我尝试时，我遇到了另一个错误：对不起，该注释是错误的。使用向量的方法奏效了，然后我能够使用
phat