用名稱創建r向量

Question

我可以使用靜態輸入創建以下輸出：

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

Results:
     dog   cat 
    "dog" "cat" 

我如何只用下面的t $動物字符向量創建相同的結果

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

Answer 1

轉換為字符，然后使用names<- （或setNames ）：

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

Answer 2

您可以使用setNames

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

#dog cat 
#dog cat 

數據

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