如何强迫R执行引号中的内容？
如何强迫R执行引号中的内容？
提问于 2021-12-07 07:51:56
我有一个值向量，其中每个元素都在引号“.”之间。我想要的是R去掉引号，执行里面的内容。在我的特殊情况下，我在引号之间的内容是一个巨大列表中的元素。注意以下示例:第一个元素是"list_jsons[1]$description$title“。当然，如果我复制并粘贴：
list_jsons[1]$description$title
在控制台中，我得到了我想要的输出。但我想要的是自动化。到目前为止，我尝试了命令glue()，它删除了引号。所以我尝试了胶水(胶水(list_.))
回答 1
Stack Overflow用户
回答已采纳
发布于 2021-12-07 08:03:11
我们必须将字符元素转换为表达式并进行计算。我们可以使用rlang包来完成这个任务。对于存储在名为"character_element“的tex元素中的代码，我们可以使用eval(parse_expr(character_element))。若要对整个向量执行此操作，请使用循环函数或Vectorize。lapply将输出一个列表，其中包含向量中所有表达式的输出。
library(rlang)
lapply(your_vector, function(x) eval(parse_expr(x)))或带purrr:map
library(purrr)
library(rlang)
map(your_vector, ~eval(parse_expr(.x)))举个例子：
text<-c("iris[1:10, 1:2]$Sepal.Width", "mtcars[mtcars$mpg<median(mtcars$mpg),]")
lapply(text, function(x) eval(parse_expr(x)))
[[1]]
[1] 3.5 3.0 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1
[[2]]
mpg cyl disp hp drat wt qsec vs am gear carb
Hornet Sportabout 18.7 8 360.0 175 3.15 3.440 17.02 0 0 3 2
Valiant 18.1 6 225.0 105 2.76 3.460 20.22 1 0 3 1
Duster 360 14.3 8 360.0 245 3.21 3.570 15.84 0 0 3 4
Merc 280C 17.8 6 167.6 123 3.92 3.440 18.90 1 0 4 4
Merc 450SE 16.4 8 275.8 180 3.07 4.070 17.40 0 0 3 3
Merc 450SL 17.3 8 275.8 180 3.07 3.730 17.60 0 0 3 3
Merc 450SLC 15.2 8 275.8 180 3.07 3.780 18.00 0 0 3 3
Cadillac Fleetwood 10.4 8 472.0 205 2.93 5.250 17.98 0 0 3 4
Lincoln Continental 10.4 8 460.0 215 3.00 5.424 17.82 0 0 3 4
Chrysler Imperial 14.7 8 440.0 230 3.23 5.345 17.42 0 0 3 4
Dodge Challenger 15.5 8 318.0 150 2.76 3.520 16.87 0 0 3 2
AMC Javelin 15.2 8 304.0 150 3.15 3.435 17.30 0 0 3 2
Camaro Z28 13.3 8 350.0 245 3.73 3.840 15.41 0 0 3 4
Ford Pantera L 15.8 8 351.0 264 4.22 3.170 14.50 0 1 5 4
Maserati Bora 15.0 8 301.0 335 3.54 3.570 14.60 0 1 5 8用Vectorize
Vectorize(function(x) eval(parse_expr(x)))(text)正如@Donald在评论中指出的那样，eval(parse(text=x))有基-R解决方案。
lapply(text, function(x) eval(parse(text = x))页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/70256585
复制相关文章
相似问题
腾讯云开发者
