如何獲得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(draws)

Answer 2

這是一種方法：

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