从数据框列名称创建公式

Question

我试图找到一种格式化数字函数的方法，通过拆分变量并在它们之间添加数学运算符。就像是

y <- data.frame(1:5, 2:6, 3:7,4:8)
names(y) <- c('a', 'b', 'c', 'd')

并将其转化为如下所示的公式：

~a+b+c+d

我试过：

x <-c(y)
z <- paste('a', 'b', 'c', 'd', sep='+')
as.numeric(as.character(z))

它不起作用，我很确定这是因为我正在使用的“字符”分隔符。我该怎么做呢？

Answer 1

> paste(names(y), collapse='+')
[1] "a+b+c+d"

您使用的参数是sep. 你应该使用该collapse参数。希望有帮助。