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

我有一个函数，它接受一个数据帧和其他参数作为输入，这些参数决定了数据帧的某种类型的更改。举个简单的例子：

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

干杯

非常简单：

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

---

完美的这正是我所希望的。

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