使用rlang将变量名从公式传递到整洁的函数中

install.packages("rlang")
library(rlang)

my_function <- function(formula, data, ...) {
  vars <- rlang::all_vars(formula)
  # 在这里对变量名进行处理，可以使用vars变量来访问传递的变量名
  # 其他参数可以通过...来传递和使用
  # ...
}

install.packages("rlang")
library(rlang)

# 示例函数
my_function <- function(formula, data, ...) {
  vars <- rlang::all_vars(formula)
  var_names <- sapply(vars, rlang::quo_name)
  
  # 在这里对变量名进行处理，可以使用var_names变量来访问传递的变量名
  # 其他参数可以通过...来传递和使用
  # 以下是一个简单的示例，计算变量的均值
  result <- sapply(var_names, function(var) {
    mean(data[[var]], ...)
  })
  
  return(result)
}

# 示例数据
data <- data.frame(x = 1:10, y = 11:20)

# 调用示例函数
my_function(~ x, data)