从R中的字符串中提取分布函数的参数

Question

我有一个包含诸如“ dgamma（x，0.5,0.1）”之类的字符的字符串列表。如何识别此字符串上的参数？ ，换句话说，如何得到x = 0.5和y = 0.1的数值？

我尝试这样：

pp= "dgamma(x,0.5,0.1)"
large <- nchar(pp)
v = rep(NA, large)
for (i in 1:large) {
    v[i] <- substr(pp, start = i, stop = i)
}
grepl("\\d", v)

我可以确定何时有数字，但我不知道如何提取

（该方法必须在参数中的任何值下均可工作）

谢谢

Answer 1

如果您确实想正确解析一串R代码，则可以使用内置的解析器

expr <- parse(text=pp)[[1]]

然后您可以使用提取所有参数

as.list(expr)[-1]
# [[1]]
# x
# 
# [[2]]
# [1] 0.5
#
# [[3]]
# [1] 0.1

在这种情况下， x不等于0.5。 这些是两个单独的参数。 0.5和0.1具体是形状和速率参数。 如果您知道它永远是dgamma并想获得您可以做的名字

mcall <- match.call(dgamma, expr)
mcall$shape
# [1] 0.5 
mcall$rate
# [1] 0.1

Answer 2

这是一个使用sub选项：

x <- "dgamma(x,0.5,0.1)"
sub("[^(]+\\([^,]+,\\s*(\\d+(?:\\.\\d+)?),\\s*\\d+(?:\\.\\d+)?\\)", "\\1", x)
[1] "0.5"
sub("[^(]+\\([^,]+,\\s*\\d+(?:\\.\\d+)?,\\s*(\\d+(?:\\.\\d+)?)\\)", "\\1", x)
[1] "0.1"

演示