r - R：我可以使用 Reduce（或其他高级函数）执行以下操作吗？

Question

我有一个函数，它将数据框和附加参数作为输入，这些参数确定数据框的某种类型的更改。举个简单的例子：

col_with_ones <- function(df, col_name) {
  df[[col_name]] <- 1
  df
}

有没有一种方法可以使用Reduce（或任何其他“高级”功能）将多个更改应用于数据框？例如继续上面的例子，我可以Reduce用来做以下事情吗：

df <- data.frame(a = runif(10))
for (letter in letters[2:5]) {
  df <- col_with_ones(df, letter)
}

干杯

Answer 1

很简单：

Reduce(col_with_ones, letters[2:5], init = df)