Вложенное выражение ifelse для квантилей

Question

Я пытаюсь присвоить число от 1 до 10 ряду векторов, основанных на том, какой квантиль они находятся в кадре данных.

До сих пор я пытался

quants <- quantile(Data$Avg, c(.1, .2, .3, .4, .5, .6, .7, .8, .9)) 

Data$quant <- for (i in nrow(Data)) { 
    ifelse(Data$Avg [i] < quants[1], Data$quant[1] = 1 , 
     ifelse(Data$Avg [i] > quants[1] & Data$Avg[i] < quants[2], Data$quant[1] = 2, Data$quant = 3 
        ))} 

я получаю следующую ошибку:

Может кто-нибудь запятнать ошибку, которую я делаю здесь?

Answer 1

Вы могли бы быть лучше использовать cut вместо цикла:

Data = data.frame(Avg = runif(100)) 
quantpoints <- seq(0.1, 0.9, 0.1) 
quants <- quantile(Data$Avg, quantpoints) 

cutpoints <- c(-Inf, quants, Inf) 

cut(Data$Avg, breaks = cutpoints, labels = seq(1, length(cutpoints) - 1)) 

Answer 2

Это должно работать:

Data$quant <- for (i in nrow(Data)) { 
    Data$quant[1] <- ifelse(Data$Avg [i] < quants[1], 1, ifelse(Data$Avg [i] > quants[1] & Data$Avg[i] < quants[2], 2, 3)) 
} 

или, что эквивалентно (внутри цикла for):

if(Data$Avg [i] < quants[1]) 
    Data$quant[1] <- 1 
else{ 
    if(Data$Avg [i] > quants[1] & Data$Avg[i] < quants[2]) 
     Data$quant[1] <- 2 
    else 
     Data$quant[1] <- 3 
} 

Вы должны назначить выход ifelse условий вне его. То есть:

output <- ifelse(a > b, a, b)