R基于data.frame首列动态生成含特殊列名的formula公式的单步实现方法

你可以直接用R内置的reformulate()函数实现单步构造，它会自动适配特殊格式的列名，不需要额外处理反引号：

fm <- reformulate(".", response = names(df)[1])

效果验证 #

用你提供的示例测试：

df <- model.frame(lm(I(Sepal.Length/Sepal.Width) ~ Species, data = iris))
fm <- reformulate(".", response = names(df)[1])
print(fm)
# 输出结果为 `I(Sepal.Length/Sepal.Width) ~ .`，完全符合预期

其他可选单步方案 #

如果你偏好基于表达式的构造方式，也可以用bquote()实现：

fm <- as.formula(bquote(.(as.name(names(df)[1])) ~ .))

方案优势 #

这两种方案都不需要手动拼接字符串，也不需要分步修改公式对象的元素，原生支持包含函数表达式、特殊符号的列名，比你目前的分步写法更简洁，也比paste拼接的方式容错性更高。

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