如何强制 R 执行引号内的内容?
how to force R to execute what's inside of quotes?
我有一个值向量,其中每个元素都在引号“...”之间
我想要的是 R 去掉引号并执行里面的内容。
在我的特殊情况下,引号之间的内容是一个巨大列表中的元素。
请注意以下示例:
第一个元素是“list_jsons[[1]]['description']$description$title”。
当然,如果我复制然后粘贴:
list_jsons[[1]]['description']$描述$标题
在控制台中,我得到了我想要的输出。
但我想要的是将其自动化。
到目前为止,我尝试了删除引号的命令 glue()。所以我尝试了 glue(glue(list_......))
我们必须将字符元素转换为表达式并求值。
我们可以使用 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 Seinein 在评论中指出的那样,eval(parse(text=x))
:
有一个 base-R 解决方案
lapply(text, function(x) eval(parse(text = x))
我有一个值向量,其中每个元素都在引号“...”之间 我想要的是 R 去掉引号并执行里面的内容。 在我的特殊情况下,引号之间的内容是一个巨大列表中的元素。 请注意以下示例: 第一个元素是“list_jsons[[1]]['description']$description$title”。 当然,如果我复制然后粘贴:
list_jsons[[1]]['description']$描述$标题
在控制台中,我得到了我想要的输出。 但我想要的是将其自动化。 到目前为止,我尝试了删除引号的命令 glue()。所以我尝试了 glue(glue(list_......))
我们必须将字符元素转换为表达式并求值。
我们可以使用 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 Seinein 在评论中指出的那样,eval(parse(text=x))
:
lapply(text, function(x) eval(parse(text = x))