1

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? inserir a descrição da imagem aqui

3 Respostas 3

3

Usando a função na.locfdo 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)
1
  • Perfeito! Graças a ajuda de todos vocês consegui aqui! Muito obrigado mesmo. Commented 29/05/2019 às 12:49
2

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.

3
  • Perfeito! Graças a ajuda de todos vocês consegui aqui! Muito obrigado mesmo. Commented 29/05/2019 às 12:50
  • isFALSE(var1) é melhor que var1 == FALSE. Mais simples ainda será if(!var1) {. E o mesmo para var2 e var3. 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!
    – saulogr
    Commented 29/05/2019 às 22:57
1

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
2
  • 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
  • Certo, editei a resposta.
    – bbiasi
    Commented 29/05/2019 às 14:50

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .