2014-02-13 46 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)

相关问题