如何获得R中条形图中每个条形的频率总和？

Question

我有以下代码在R中生成数据集。但是，我想要图表中每个x值的实际精确值，并且无法确定如何生成这些值。这是我的代码：

x <- c("CF", "CH", "CJ", "CE", "CN", "EC", "EN", "EJ", "AB", "BA", "KO", "OD", "DL", "HG")
px = c(0.08, 0.10, 0.06, 0.20, 0.04, 0.15, 0.02, 0.10, 0.025, 0.025, 0.05, 0.05, 0.05, 0.05)
draws = sample(x, size = 1000, replace = TRUE, prob = px)
barplot(height=table(draws))

如何获得每个x值（即CF，CH，CE等）的精确频率？

Answer 1

函数'table'提供每个因子的计数

尝试：     table(draws)

Answer 2

这是一种方式：

sapply(lapply(x, '==', draws), sum)