<- data[order(-data$x),]
data$cs <- cumsum(data$x)
data[data$cs/sum(data$x)<0.8,c("id")]
18 11 10 5 2 19 16 1 6 12 13 14 4 3 9
спасибо большое, попробую
Обсуждают сегодня