Início / coding / Perguntas / 79562717
Accepted
Phoebe
Asked: 2025-04-09 01:31:31 +0800 CST

Como transformar um vetor parcialmente nomeado em uma matriz/quadro de dados com os mesmos nomes de colunas em R?

  • 772

Tenho um vetor no qual apenas alguns elementos são nomeados. Como podemos transformá-lo em uma matriz ou em um dataframe que salve esses nomes e deixe os elementos sem nome como estão? Por exemplo, myvec tem 10 elementos e apenas 6 números (os três últimos dos 5 números) têm nomes acima deles.

                             n1          n2         n3                                        
1.29258297  0.68706142  0.70861652 -1.13494695 -0.26373635  0.29306389  0.65264213
     n1          n2          n3
-0.07332781 -0.23717912  0.38339900

Se eu transformar myvec em uma matriz ou dataframe com 2 linhas e 5 colunas, quero que as últimas 3 colunas sejam nomeadas com n1, n2 e n3. Como podemos fazer isso em R?

5 respostas

  1. Eu tentaria desenvolver algo robusto a partir de

    local({
  n = names(v)==''
  d = unstack(stack(v[!n]))
  m = cbind(matrix(v[n], nrow=nrow(d), byrow=TRUE), d)
  N = n[seq_len(length(v)/nrow(d))]
  m[, c(seq_along(N)[N], seq_along(N)[!N])]
})   

              1         2          n1         n2         n3
1 1.2925830 0.6870614  0.70861652 -1.1349470 -0.2637364
2 0.2930639 0.6526421 -0.07332781 -0.2371791  0.3833990

    Dados

    v = c(1.29258297, 0.68706142, n1 = 0.70861652, n2 = -1.13494695, 
n3 = -0.26373635, 0.29306389, 0.65264213, n1 = -0.07332781, n2 = -0.23717912, 
n3 = 0.383399)
    • 4
  2. Best Answer

    Matriz:

    > `colnames<-`(matrix(v, 2, byrow=TRUE), names(v)[seq_len(length(v)/2)])
                                  n1         n2         n3
[1,] 1.2925830 0.6870614  0.70861652 -1.1349470 -0.2637364
[2,] 0.2930639 0.6526421 -0.07332781 -0.2371791  0.3833990

    Quadro de dados:

    > setNames(as.data.frame(matrix(v, 2, byrow=TRUE)), names(v)[seq_len(length(v)/2)])
                               n1         n2         n3
1 1.2925830 0.6870614  0.70861652 -1.1349470 -0.2637364
2 0.2930639 0.6526421 -0.07332781 -0.2371791  0.3833990
    • 2

  3. No exemplo acima, poderíamos usar uma função personalizada:

    Explicação:

    l <- length(x) / 2 calcula o ponto médio do vetor e o atribui a l.

    x[1:(l <- length(x)/2)]pega a primeira metade do vetor, usando a atribuição de ldentro da indexação

    x[(l+1):length(x)]obtém a segunda metade do vetor

    col.names = names(x)[(l+1):length(x)]define os nomes das colunas como os nomes da segunda metade do vetor.

    tudo embrulhado em rbindeas.data.frame

    
split_vector_to_df <- \(x) as.data.frame(
  rbind(x[1:(l <- length(x)/2)], x[(l+1):length(x)]),
  col.names = names(x)[(l+1):length(x)]
)

split_vector_to_df(myvec)

    saída:

             V1        V2          n1         n2         n3
1 1.2925830 0.6870614  0.70861652 -1.1349470 -0.2637364
2 0.2930639 0.6526421 -0.07332781 -0.2371791  0.3833990
    • 2

  4. Você poderia tentar isso

    
v <- c(1.29258297, 0.68706142,  
       n1=0.70861652, n2=-1.13494695, n3=-0.26373635,
       0.29306389,  0.65264213, 
       n1=-0.07332781, n2=-0.23717912, n3=0.38339900)
m <- rbind(v[1:5],v[6:10])
d <- as.data.frame(m)

    dando

    > v
                                 n1          n2          n3             
 1.29258297  0.68706142  0.70861652 -1.13494695 -0.26373635  0.29306389 
                     n1          n2          n3 
 0.65264213 -0.07332781 -0.23717912  0.38339900 
>
> m
                                  n1         n2         n3
[1,] 1.2925830 0.6870614  0.70861652 -1.1349470 -0.2637364
[2,] 0.2930639 0.6526421 -0.07332781 -0.2371791  0.3833990
>
> d
         V1        V2          n1         n2         n3
1 1.2925830 0.6870614  0.70861652 -1.1349470 -0.2637364
2 0.2930639 0.6526421 -0.07332781 -0.2371791  0.3833990
    • 0

  5. Use um cumsumtruque para criar uma variável ffornecendo os segmentos com/sem nomes, depois splito vetor dessa variável e rbindo resultado.

    v <- c(1.29258297, 0.68706142, n1 = 0.70861652, n2 = -1.13494695, 
      n3 = -0.26373635, 0.29306389, 0.65264213, n1 = -0.07332781, n2 = -0.23717912, 
      n3 = 0.383399)

f <- c(TRUE, diff(names(v) == "") > 0) |> cumsum()
split(v, f) |> do.call(rbind, args = _) |> as.data.frame()
#>          V1        V2          n1         n2         n3
#> 1 1.2925830 0.6870614  0.70861652 -1.1349470 -0.2637364
#> 2 0.2930639 0.6526421 -0.07332781 -0.2371791  0.3833990

    Criado em 2025-04-08 com reprex v2.1.1

    • 0

relate perguntas