如何从r中线性预测器中获取名称

# 创建一个线性预测器对象
lm_model <- lm(Sepal.Length ~ Sepal.Width + Petal.Length, data = iris)

# 获取线性预测器的名称列表
predictor_names <- names(lm_model$coefficients)

# 创建一个包含线性预测器的数据框
data <- data.frame(Sepal.Width = iris$Sepal.Width, Petal.Length = iris$Petal.Length)

# 拟合线性模型
lm_model <- lm(iris$Sepal.Length ~ ., data = data)

# 获取线性预测器的名称列表
predictor_names <- colnames(data)[-1]

# 创建一个线性预测器公式
lm_formula <- formula(Sepal.Length ~ Sepal.Width + Petal.Length)

# 获取线性预测器的名称列表
predictor_names <- all.vars(lm_formula)[-1]