Queria substituir os campos vazios (NAs) em 'numero de voltas' com a variável (VAR1 - 3) que estiver preenchida. Pretendo fazer em um data.frame maior. Como vocês sugerem?
3 Respostas
Usando a função na.locf
do pacote zoo
, torna-se mais fácil fazer o que pretende.
df$N_VOLTAS <- apply(df, 1, function(x) {
y <- zoo::na.locf(x)
y[length(y)]
})
Dados.
df <- data.frame(VAR1 = c(rep(NA, 5), 1, 1, 1, rep(NA, 4), 1),
VAR2 = c(rep(NA, 3), 19, 13, rep(NA, 8)),
VAR3 = c(rep(NA, 8), 10, 8, 7, 5, NA))
df$N_VOLTAS <- NA
df$N_VOLTAS[1:3] <- c(32, 47, 12)
-
Perfeito! Graças a ajuda de todos vocês consegui aqui! Muito obrigado mesmo. Commented 29/05/2019 às 12:49
Você pode fazer o seguinte:
- Para cada linha identificar qual está preenchida;
- Associar para a coluna
N_VOLTAS
o valor dessa colunas.
Faria da seguinte maneira:
df <- data.frame(var1 = c(rep(NA, 5), 1, 1, 1, rep(NA, 4), 1),
var2 = c(rep(NA, 3), 19, 13, rep(NA, 8)),
var3 = c(rep(NA, 8), 10, 8, 7, 5, NA),
n_voltas = c(32, 47, 12, rep(NA, 10)))
>df
var1 var2 var3 n_voltas
1 NA NA NA 32
2 NA NA NA 47
3 NA NA NA 12
4 NA 19 NA NA
5 NA 13 NA NA
6 1 NA NA NA
7 1 NA NA NA
8 1 NA NA NA
9 NA NA 10 NA
10 NA NA 8 NA
11 NA NA 7 NA
12 NA NA 5 NA
13 1 NA NA NA
for (i in 1:nrow(df)) {
#identificando qual coluna está preenchida
var1 = is.na(df[i,1])
var2 = is.na(df[i,2])
var3 = is.na(df[i,3])
if (var1 == FALSE){
df[i, 4] = df[i, 1]
}else if (var2 == FALSE){
df[i, 4] = df[i, 2]
} else if (var3 == FALSE) {
df[i, 4] = df[i, 3]
}else {
#valor para quando todas estiverem vazias
}
}
var1 var2 var3 n_voltas
1 NA NA NA 32
2 NA NA NA 47
3 NA NA NA 12
4 NA 19 NA 19
5 NA 13 NA 13
6 1 NA NA 1
7 1 NA NA 1
8 1 NA NA 1
9 NA NA 10 10
10 NA NA 8 8
11 NA NA 7 7
12 NA NA 5 5
13 1 NA NA 1
Essa maneira considera que apenas umas das colunas estará preenchida e que caso tenha mais de uma, a primeira que será utilizada na coluna n_voltas
.
-
Perfeito! Graças a ajuda de todos vocês consegui aqui! Muito obrigado mesmo. Commented 29/05/2019 às 12:50
-
isFALSE(var1)
é melhor quevar1 == FALSE
. Mais simples ainda seráif(!var1) {
. E o mesmo paravar2
evar3
. Commented 29/05/2019 às 20:01 -
Boa dica! Acredito que tenham diversas formas de implementar tal estratégia. Inclusive com a função
apply()
, por exemplo. Obrigado pela dica!– saulogrCommented 29/05/2019 às 22:57
Você pode fazer isto com o pacote dplyr
.
df <- data.frame(var1 = c(rep(NA, 5), 1, 1, 1, rep(NA, 4), 1),
var2 = c(rep(NA, 3), 19, 13, rep(NA, 8)),
var3 = c(rep(NA, 8), 10, 8, 7, 5, NA))
library(dplyr)
df2 <- df %>%
t %>% as.data.frame() %>%
dplyr::summarise_each(funs(max(., na.rm = TRUE))) %>%
t %>% as.data.frame()
df <- df %>%
dplyr::mutate(n_volta = df2$V1)
df
> df
var1 var2 var3 n_volta
1 NA NA NA 32
2 NA NA NA 47
3 NA NA NA 12
4 NA 19 NA 19
5 NA 13 NA 13
6 1 NA NA 1
7 1 NA NA 1
8 1 NA NA 1
9 NA NA 10 10
10 NA NA 8 8
11 NA NA 7 7
12 NA NA 5 5
13 1 NA NA 1
Ou:
df2 <- df %>%
rowwise() %>%
dplyr::mutate(n_volta2 = max(var1, var2, var3, n_volta, na.rm = T))
> df2
Source: local data frame [13 x 4]
Groups: <by row>
# A tibble: 13 x 4
var1 var2 var3 n_volta
<dbl> <dbl> <dbl> <dbl>
1 NA NA NA 32
2 NA NA NA 47
3 NA NA NA 12
4 NA 19 NA 19
5 NA 13 NA 13
6 1 NA NA 1
7 1 NA NA 1
8 1 NA NA 1
9 NA NA 10 10
10 NA NA 8 8
11 NA NA 7 7
12 NA NA 5 5
13 1 NA NA 1
-
Opa bbiasi, beleza? Obrigado pela ajuda, mas pelo que vi você entendeu um pouco diferente o pedido, mas de qualquer forma ajudou bastante pois seu exemplo usário em um futuro próximo. Valeu! Commented 29/05/2019 às 12:50
-