R 如何在数据帧列表上添加具有特定值的列

我有一个数据帧列表。我想在每个数据帧中添加一列，其中包含一个固定值。以下是该功能的计划输入：

add_cols <- function(data, col_value) {
  data <- map2(data, col_value, function(x, y) x['type'] = y)
  return(data)
}

---

ar_数据您可以使用

Map

：

add_cols <- function(data, col_value) {
   Map(cbind, data, type = col_value)
   #Using `map2` from `purrr`
   #purrr::map2(data, col_value, ~cbind(.x, type = .y))
}

add_cols(ar_data, c("Data_source1", "Data_source2", "Data_source3"))

---

add\u cols我们也可以使用
lappy

lapply(seq_along(data), function(i) transform(data[[i]], type = col_value[i]))

？mapply
应该能满足您的需求。
lapply(seq_along(data), function(i) transform(data[[i]], type = col_value[i]))