2014-02-13 73 views
1

我有以下代碼在R中生成數據集。但是,我希望圖表中每個x值的實際精確值,並且無法弄清楚如何生成這些值。這裏是我的代碼:如何獲得R中每個條形圖的條形圖的頻率總計?

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等)的精確頻率?

+0

你說的「如何生成這些價值」是什麼意思?你用'table(draws)'來'生成'它們?或者我誤解了一些東西?你的意思是如何將這些值添加到劇情中的每個欄中? – Henrik

回答

0

這裏有一種方法:

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

函數「表」提供了每個因素的計數

嘗試: table(draws)

相關問題