[英]R - how to use column names as arguments in a function and insert into a model formula
我想要一个函数,其中参数可以采用变量名(该变量名是数据集的一部分,但不存储为环境中的对象),并将该变量名插入模型公式中。
例如:
# Some data with a couple of variables
my_df <- data.frame(y = rbinom(10, 1,0.5), var1 = runif(10), var2 = runif(10))
# A function that fits a model using predictor specified in the arguments
my_fun <- function(var_name, df){
glm(y ~ var_name, data = df, family = "binomial")
}
当我尝试使用该功能时,出现以下错误信息
my_fun(var1, my_df)
Error in eval(expr, envir, enclos) : object 'var1' not found
# What I want the function to do
glm(y ~ var1, data = my_df, family = "binomial")
有没有办法让这种功能起作用?
你可以不带引号的解析var_name
与substitute
:
my_fun <- function(var_name, df){
glm.formula <- substitute(y ~ x, list(x = substitute(var_name)))
glm(glm.formula, data = df, family = "binomial")
}
一个例子:
my_fun(var1, my_df)
# Call: glm(formula = glm.formula, family = "binomial", data = df)
#
# Coefficients:
# (Intercept) var1
# -1.226 3.108
#
# Degrees of Freedom: 9 Total (i.e. Null); 8 Residual
# Null Deviance: 13.46
# Residual Deviance: 11.35 AIC: 15.35
glm(y ~ var1, data = my_df, family = "binomial")
# Call: glm(formula = y ~ var1, family = "binomial", data = my_df)
#
# Coefficients:
# (Intercept) var1
# -1.226 3.108
#
# Degrees of Freedom: 9 Total (i.e. Null); 8 Residual
# Null Deviance: 13.46
# Residual Deviance: 11.35 AIC: 15.35
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.