如何编写返回多列的R函数并追加至现有数据框？

先看单列函数的常规用法作为参照：

library(tidyverse)

# 示例数据
df <- tibble(x = 1:3, y = 4:6)

# 返回单列值的函数
single_col_func <- function(a, b) {
  a + b
}

# 用map2_dbl追加单列结果（正常运行）
df %>%
  mutate(sum_val = map2_dbl(x, y, single_col_func))

当函数需要返回多列时，map2_dbl不再适用（它要求返回单一数值），以下是三种可行的解决方案：

方案1：让函数返回tibble，结合map2+unnest_wider #

# 返回两列的函数（返回tibble）
multi_col_func <- function(a, b) {
  tibble(
    sum_val = a + b,
    prod_val = a * b
  )
}

# 正确写法：先生成列表列，再拆分为多列
df %>%
  mutate(result = map2(x, y, multi_col_func)) %>%
  unnest_wider(result)

方案2：让函数返回命名向量，结合map2+unnest_wider #

如果函数返回命名向量，同样可以用unnest_wider拆分：

# 返回命名向量的函数
multi_col_vec_func <- function(a, b) {
  c(sum_val = a + b, prod_val = a * b)
}

df %>%
  mutate(result = map2(x, y, multi_col_vec_func)) %>%
  unnest_wider(result)

方案3：用map2_dfr直接绑定结果 #

如果不需要保留中间列表列，可以直接用map2_dfr将函数返回的多行tibble行绑定，再和原数据合并：

df %>%
  bind_cols(map2_dfr(x, y, multi_col_func))

这些方法都能将函数返回的多列结果正确追加到原tibble中，避免因返回值类型不匹配导致的报错。

内容的提问来源于stack exchange，提问作者Tengku Hanis