将字符串向量转换为对象名称向量

Question

示例数据：

a <- c("cat", "dog", "mouse")
b <- c("spoon", "fork", "knife")
c <- c("auto", "boot", "bike")

生成变量：

objects <-c(a,b,c)
strings <-c("a","b","c")

给我所有字符串的长度：

> nchar(objects)
[1] 3 3 5 5 4 5 4 4 4

> nchar(strings)
[1] 1 1 1

为了给我与“对象”相同的结果，我必须对“字符串”做些什么？

到目前为止我最接近的：

> nchar(eval(parse(text=strings)))
[1] 4 4 4
> 

但是其余的呢？

Answer 1

我们可以使用mget返回list对象的值，将其unlist list为vector并获取nchar

nchar(unlist(mget(strings), use.names=FALSE))
#[1] 3 3 5 5 4 5 4 4 4

Answer 2

一种选择是对strings每个元素使用sapply ， get元素的值并使用nchar计算字符数

c(sapply(strings, function(x) nchar(get(x))))
#[1] 3 3 5 5 4 5 4 4 4

Answer 3

关键是遍历strings每个元素并应用eval(parse(text=s)) 。 然后unlist向量，并调用nchar ：

nchar(unlist(lapply(strings,function(s) eval(parse(text=s)))))
##[1] 3 3 5 5 4 5 4 4 4

希望这可以帮助。