r - 所有变量之间具有 n 向交互作用的模型矩阵

我使用以下代码在数据集中的变量之间创建 n 阶交互。对于二阶交互的情况，我使用:

train_X <- model.matrix(~.^2, train_data %>% select(-target))

这工作正常，但是，当我尝试将 n 阶项模块化以通过以下方式将此代码嵌入到函数中时，它不起作用:

n <- 2
train_X <- model.matrix(~.^n, train_data %>% select(-target))

特别是，它返回以下错误:

Error in terms.formula(object, data = data) : invalid power in formula

我也尝试指定n = 2L，但它返回相同的错误。

最佳答案

尝试将公式构建为字符串(使用 paste()、glue::glue()、sprintf() 或其他方式您喜欢)并转换为公式(使用 as.formula() 或 reformulate())。

train_X <- model.matrix(
   as.formula(sprintf("~.^%d", n)), 
   train_data %>% select(-target))

关于r - 所有变量之间具有 n 向交互作用的模型矩阵，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/71755230/