如何重新调整公式元素顺序？以y~d|z|x调整为y~x|d|z为例

要将formula <- y~d|z|x调整为y~x|d|z，可以借助Formula包的工具拆解并重组公式，具体操作如下：

步骤1：加载工具包并转换原公式 #

首先确保安装并加载Formula包，它能更好地处理带多个|分隔的多部分公式：

# 未安装则先执行安装
install.packages("Formula")
library(Formula)

# 定义原公式
formula <- y~d|z|x
# 转为Formula对象，方便拆分各部分
form_obj <- Formula(formula)

步骤2：拆分公式的各个组成部分 #

提取原公式的左侧项和右侧的三个独立部分：

# 提取左侧因变量部分（y）
lhs_part <- lhs(form_obj, 1)
# 提取右侧三个分项：d、z、x
rhs_d <- rhs(form_obj, 1)
rhs_z <- rhs(form_obj, 2)
rhs_x <- rhs(form_obj, 3)

步骤3：重组目标公式 #

按照y~x|d|z的结构重新组合各部分，生成新的Formula对象：

new_formula <- Formula(paste(lhs_part, "~", rhs_x, "|", rhs_d, "|", rhs_z))

# 查看结果
new_formula
# 输出：Formula: y ~ x | d | z

简化写法 #

也可以直接一步完成拆分与重组，无需单独提取每个部分：

new_formula <- Formula(paste(lhs(form_obj,1), "~", rhs(form_obj,3), "|", rhs(form_obj,1), "|", rhs(form_obj,2)))

原代码问题说明 #

你之前的代码逻辑有误：as.Formula()的参数需要合法的公式表达式或字符串，而你传入的formula(formula,lhs=1,rhs=3)和formula(formula, lhs = 1, rhs = 1)[c(-2,-1)]不符合参数要求，因此无法正常运行。

内容的提问来源于stack exchange，提问作者Ludwig Gershwin