有没有一种方法可以使用字符串公式和'，“=~”来创建R函数？

# 定义一个字符串公式
formula <- "y ~ x"

# 创建R函数
create_function <- function(formula_str) {
  formula <- as.formula(formula_str)
  function(x, y) {
    data <- data.frame(x, y)
    lm(formula, data)
  }
}

# 使用字符串公式创建R函数
my_function <- create_function(formula)

# 调用创建的函数
x <- c(1, 2, 3, 4, 5)
y <- c(2, 4, 6, 8, 10)
result <- my_function(x, y)

# 打印回归分析结果
print(summary(result))