描述民意调查回应的“突出性”

Question

我试图描述选择的重要性。 你为他们调查了10个人 最喜欢的颜色，你得到以下回应：

r = c(rep("blue",5),rep("green",4),rep("red",1))

你做了一个列联表：

tab = table(r)

如果你考虑这个的密度......

d = density(tab)

如果你问别人并且他们说“红色”，那么你就是突出的特征 通过概率密度函数部分的积分等于或小于其响应速率来响应：

get.prominence = function(new.response){
  rate = tab[new.response]
  window.index = tail(which(d$x<=rate),n=1)
  sum(d$y[1:window.index])/sum(d$y)
}
get.prominence("red") # .16
get.prominence("blue") # .77

这是一种合理的方法吗？必须有一种已知的技术 为此，我不知道它的名字。