如何编写一个函数，其中输入是数据帧的行，输出是另一个数据帧？

Question

我有一个包含 3 列、名称、开始和结束的表。我正在尝试编写（最好使用 tidyverse）函数，该函数将获取该表的每一行并根据逻辑创建（稍后绑定所有输出）数据帧。显然我需要 seq，但我不知道使用什么函数来处理输入。我尝试使用 map_df 和 rowwise 但没有运气。有任何想法吗？提前致谢！

这里是例子

输入

name|start|end
A   | 1   | 3
B   | 1   | 4

预期输出

Name|value
A   |1
A   |2
A   |3
B   |1
B   |2
B   |3
B   |4

Answer 1

我们可以使用map2

library(dplyr)
library(purrr)
library(tidyr)
df1 %>%
      transmute(name, value = map2(start, end, `:`)) %>%
      unnest(c(value))
# A tibble: 7 x 2
#  name  value
#  <fct> <int>
#1 A         1
#2 A         2
#3 A         3
#4 B         1
#5 B         2
#6 B         3
#7 B         4

---

或rowwise

df1 %>%
   rowwise %>%
   transmute(name, value = list(start:end)) %>%
   unnest(c(value))

---

或者在base R 中加上stack 和Map

stack(setNames(do.call(Map, c(f = `:`, df1[-1])), df1$name))

数据

df1 <- data.frame(name = c('A', 'B'), start = c(1, 1), end = c(3, 4))