Para iterar é necessário processar cada item que compõe o vector ou coluna.
Por isso é recomendável:
- Criar um vector ou coluna com igual número de elementos que a coluna que será avaliada para alocar os resultados
- Utilizar a função
for
seguida de seq_along()
- Indicar cada item que será processado e cada item que será substituído nas colunas ("i")
Tabela com dados para exemplo
set.seed(40)
data <- data.frame(
id = letters[1:10],
variacao = sample(c(-30, 0, 30), 10, TRUE))
data
Alocar valores a ser iterados incluindo valores como integer
data$UpDown <- rep(0, length(data$variacao))
for (i in seq_along(data$variacao)){
if (data$variacao[i] > 0)
data$UpDown[i] <- 1L
else if (data$variacao[i] < 0)
data$UpDown[i] <- -1L
else if(data$variacao[i] == 0)
data$UpDown[i] <- 0L
}
Alocar valores a ser iterados incluindo valores como character
data$UpDownc <- rep(0, length(data$variacao))
for (i in seq_along(data$variacao)){
if (data$variacao[i] > 0)
data$UpDownc[i] <- "+1"
else if (data$variacao[i] < 0)
data$UpDownc[i] <- "-1"
else if(data$variacao[i] == 0)
data$UpDownc[i] <- "0"
}
Uma versão vetorizada
O mesmo resultado, mas indexando os valores usando a função "extract" [
.
data$UpDownv <- data$variacao
data[data$UpDownv == 0, "UpDownv"] <- 0
data[data$UpDownv > 0, "UpDownv"] <- 1
data[data$UpDownv < 0, "UpDownv"] <- -1
Usando função vetorizada ifelse()
A função pode ser aplicada nesse caso, da seguinte maneira:
data$UpDownv2 <- ifelse(data$variacao == 0, 0,
ifelse(data$variacao > 0, 1, -1))
Resultado
> head(data)
id variacao UpDown UpDownc UpDownv UpDownv2
1 a 30 1 +1 1 1
2 b 0 0 0 0 0
3 c -30 -1 -1 -1 -1
4 d 0 0 0 0 0
5 e 30 1 +1 1 1
6 f 0 0 0 0 0
data$variacao
. Ela é uma coluna de uma tabela que contém diversos valores? O resultado desejado seria uma nova coluna, com o mesmo número de elementos quedata$variacao
contendointegers
:1
,-1
e0
para cada condição? Veja o link sobre formulação de perguntas: pt.meta.stackoverflow.com/questions/824/…