準備一個帶names的向量

a_vector <- c("a","b","c","d")
names(a_vector) <- c("A","B","C","D")

a_vector
##  A   B   C   D 
##"a" "b" "c" "d" 

將帶names的vector轉(zhuǎn)換為單列data.frame

as.data.frame() 是數(shù)據(jù)框，行名為原向量names，列名為原對象名稱。

a_data.frame <- as.data.frame(a_vector)
View(a_data.frame)

image.png

將帶有行名的data.frame轉(zhuǎn)換為帶names的vector

方法一：as.vector()

as.vector() 并未將向量轉(zhuǎn)換為向量。畢竟是個數(shù)據(jù)框，不管單列還是多列內(nèi)容需要選定列。

b_vector <- as.vector(a_data.frame$a_vector) 

b_vector ## 無names的向量
## [1] "a" "b" "c" "d"

class(b_vector)
## [1] "character"

names(b_vector) <- rownames(a_data.frame)
b_vector ##帶names的向量
##   A   B   C   D 
## "a" "b" "c" "d" 

方法二：dplyr::pull()

library(dplyr)
library(tibble)
c_vector <-  a_data.frame %>% 
                rownames_to_column() %>% #將rownames轉(zhuǎn)到數(shù)據(jù)框內(nèi)，新列名為rowname
                pull(var = a_vector, #將要轉(zhuǎn)換為向量的內(nèi)容
                     name = rowname # 將rowname列作為新向量的名稱
                    )

c_vector #帶names的向量
##   A   B   C   D 
## "a" "b" "c" "d"