r - 展开 R 公式

Question

这可能看起来像一个简单的问题，但是否有任何快速而强大的方法来扩展这样的公式

f=formula(y ~ a * b )

到

y~a+b+ab

Answer 1

我会试试这个:

f = y ~ a * b
reformulate(labels(terms(f)), f[[2]])
# y ~ a + b + a:b

它也适用于更复杂的公式，并且依赖于更多的内部结构。 (我假设您想要一个有用的 formula 对象，因此在结果中 a:b 比问题中的 ab 或 d.b 的答案中的 a*b 更好。)

f = y ~ a + b * c
reformulate(labels(terms(f)), f[[2]])
# y ~ a + b + c + b:c

f = y ~ a + (b + c + d)^2
reformulate(labels(terms(f)), f[[2]])
# y ~ a + b + c + d + b:c + b:d + c:d