Eu tenho um vetor de caractere nomeado retornado de xmlAttrs como este:
testVect <- structure(c("11.2.0.3.0", "12.89", "12.71"), .Names = c("db_version",
"elapsed_time", "cpu_time"))
Eu gostaria de convertê-lo em um quadro de dados parecido com este:
testDF <- data.frame("db_version"="11.2.0.3.0","elapsed_time"=12.89,"cpu_time"=12.71)
head(testDF)
db_version elapsed_time cpu_time
1 11.2.0.3.0 12.89 12.71
r
dataframe
vector
type-conversion
Tyler Muth
fonte
fonte
data_frame(as.list(testVect))retornar um quadro de dados de 5 linhas.as_tibble(as.list(testVect))ouas_data_frame(as.list(testVect))(as_data_frameé um apelido paraas_tibble).data.table(as.list(...))não funciona, mas simas.data.table(as.list(...)).As respostas de @MatthewPlourde e @JackRyan funcionam, mas se você tiver um vetor com nome longo, é irritante ter um quadro de dados com uma linha e muitas colunas. Se você preferir uma coluna "chave" e uma coluna "valor" com muitas linhas, qualquer uma das seguintes opções deve funcionar:
data.frame(keyName=names(testVect), value=testVect, row.names=NULL) ## keyName value ## 1 db_version 11.2.0.3.0 ## 2 elapsed_time 12.89 ## 3 cpu_time 12.71 ## Suggested by @JWilliman tibble::enframe(testVect) ## # A tibble: 3 x 2 ## name value ## <chr> <chr> ## 1 db_version 11.2.0.3.0 ## 2 elapsed_time 12.89 ## 3 cpu_time 12.71 ## Suggested by @Joe stack(testVect) ## values ind ## 1 11.2.0.3.0 db_version ## 2 12.89 elapsed_time ## 3 12.71 cpu_timefonte
tibble::enframe(testVect).stack(testVect)também faz isso, mas deixa os valores como caracteres.testVect %>% as.list %>% as.data.frame %>% tidyr::gather()Isso realmente produz as colunas 'chave' e 'valor' às quais @dnlbrky se referiu.stack(), que função subestimada!Vou tentar isso:
fonte
data.frame(t(testVect))Eu costumava usar as funções sugeridas nessas respostas (
as.list,as_tibble,t,enframe, etc.), mas desde então descobri quedplyr::bind_rowsagora trabalha para fazer exatamente o que a pergunta original pergunta com uma única chamada de função.library(dplyr) testVect <- structure(c("11.2.0.3.0", "12.89", "12.71"), .Names = c("db_version", "elapsed_time", "cpu_time")) testVect %>% bind_rows #> # A tibble: 1 x 3 #> db_version elapsed_time cpu_time #> <chr> <chr> <chr> #> 1 11.2.0.3.0 12.89 12.71Criado em 10/11/2019 pelo pacote reprex (v0.3.0)
Conforme mostrado no tidyverse - forma preferida de transformar um vetor nomeado em um data.frame / tibble
fonte
named vector %>% as_tibble(.,rownames="column name of row.names")fonte