用名称创建r向量

Question

I have this output that I can create with static inputs:

t1 = c("dog"="dog","cat"= "cat")
t1

Results:
     dog   cat 
    "dog" "cat" 

How can I create those same results with only the t$animal character vector below

t = data.frame(animal = c("dog","cat"))
c(t$animal =t$animal)  # this does not work

Answer 1

Convert to character and then use names<- (or setNames ):

ch <- as.character(unlist(t))
names(ch) <- ch
ch
##   dog   cat 
## "dog" "cat" 

Answer 2

You can use setNames

t2 <- setNames(t$animal, t$animal)
t2

#dog cat 
#dog cat 

data

t <- data.frame(animal = c("dog","cat"))