Расчет процентов, когда значения взвешены

Question

У меня есть набор данных, по которому измеряются все особи> 10 см, и отбирается образец особей <10 см. Затем я рассчитываю коэффициент поднятия для выборки лиц <10 см на основе весов (веса записываются). </p>

Затем я могу построить график частоты длин в ggplot, назначив коэффициент повышения как вес в ggplot. Однако теперь я хотел бы рассчитать процент от набора данных <10 см и процент> 10 см, и мне нужно использовать коэффициент повышения для учета системы выборки. В приведенных ниже данных каждое значение 6 считается как две записи по 6, каждое значение 3 считается как шесть значений по 3 и т. Д. Для графика частоты длин.

Length     Raising factor
6          2
19         1
3          6
11         1 
14         1
8          5

Есть ли предложение, как рассчитать процент длины <10 см на основе коэффициента поднятия? </p>

Answer 1

Вот способ сделать это:

with(df1, sum(Raising_factor[Length < 10] / sum(Raising_factor)))
# [1] 0.8125

Мы фильтруем взвешенные вхождения, для которых подходит длина, и вычисляем их пропорцию относительно всех взвешенных вхождений.

данные

df1 <- read.table(h=T,text="
Length     Raising_factor
6          2
19         1
3          6
11         1 
14         1
8          5")