1

Suponha o seguinte data.frame:

df<-data.frame(V1 = c(9,1,4,2,3,0,7,9,5),
       V2 = c(9,2,5,4,7,9,2,3,8),
       V3 = c(9,8,5,7,4,0,2,9,3),
       V4 = c(9,7,3,6,2,9,5,8,4),
       V5 = c(9,2,5,4,0,3,9,4,8))

  V1 V2 V3 V4 V5
1  9  9  9  9  9
2  1  2  8  7  2
3  4  5  5  3  5
4  2  4  7  6  4
5  3  7  4  2  0
6  0  9  0  9  3
7  7  2  2  5  9
8  9  3  9  8  4
9  5  8  3  4  8

Eu gostaria de criar uma 6a coluna com os números todos juntos.

Estou usando a função paste(), mas não está saindo conforme o esperado.

df %>% 
  mutate(junto = paste0(df[,1],df[,5]))


  V1 V2 V3 V4 V5 junto
1  9  9  9  9  9    99
2  1  2  8  7  2    12
3  4  5  5  3  5    45
4  2  4  7  6  4    24
5  3  7  4  2  0    30
6  0  9  0  9  3    03
7  7  2  2  5  9    79
8  9  3  9  8  4    94
9  5  8  3  4  8    58
> 

A função colas as colunas "V1" e "V5".

Mas na verdade, gostaria que colasse de 'V1' até 'V5'.

Tentei usar os "dois pontos" df[,1]:df[,5], mas também não deu certo

df %>% 
  mutate(junto = paste0(df[,1]:df[,5]))

  V1 V2 V3 V4 V5 junto
1  9  9  9  9  9     9
2  1  2  8  7  2     9
3  4  5  5  3  5     9
4  2  4  7  6  4     9
5  3  7  4  2  0     9
6  0  9  0  9  3     9
7  7  2  2  5  9     9
8  9  3  9  8  4     9
9  5  8  3  4  8     9

Warning messages:
1: In df[, 1]:df[, 5] :
  numerical expression has 9 elements: only the first used
2: In df[, 1]:df[, 5] :
  numerical expression has 9 elements: only the first used

Dei uma olhada nessa resposta, mas ainda assim não estou conseguindo

1 Resposta 1

6

Pode usar apply para aplicar paste às linhas selecionadas (usando collapse ao invés de sep):

df$junto <- apply(df[, 1:5], 1, paste, collapse = "")

> head(df)
  V1 V2 V3 V4 V5 junto
1  9  9  9  9  9 99999
2  1  2  8  7  2 12872
3  4  5  5  3  5 45535
4  2  4  7  6  4 24764
5  3  7  4  2  0 37420
6  0  9  0  9  3 09093

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 .