我想从一个对象矢量生成一个字符串向量。
Bob <- c(1,2,3,4)
Anne <- c(3,5,7,1)
Tim <- c(4,2,1,1)
People <- c(Bob, Anne, Tim)
现在我想要的是：
> Names
[1] "Bob" "Anne" "Tim"
我知道您可以单独使用
执行此操作> deparse(substitute(Bob))
[1] "Bob"
所以我试着做
Names <- lapply(People,function(k){deparse(substitute(k))})
但这没有给出预期的结果。它产生了一个长列表，其中每个元素都是：
[[1]]
[1] "X[[i]]"
[[2]]
[1] "X[[i]]"
...
我确信这是一项相当容易的任务，但我无法让它发挥作用。谢谢！