将每一行与对应的列合并，形成一个垂直表格

Question

我正在尝试将b 中的每一行合并到a 中的每一列，以便我可以创建一个包含所有数据的垂直表。

假设我有以下：

a <- data.frame(col1 = c(1,2,3,4), col2=c(5,6,7,8), col3=c(9,10,11,12))
b <- data.frame(p=c('a', 'b', 'c'))

我想为b 的每一行合并a 中的相应列。 注意：更喜欢基本 R 解决方案，但学习其他解决方案会很有趣。

试图让我的最终结果如下所示：

p | val
-------
a | 1
a | 2
a | 3
a | 4
b | 5
b | 6
b | 7
b | 8
c | 9
c | 10
c | 11
c | 12 

Answer 1

可以通过将“a”数据集的列名设置为“b”的“p”列，然后将stackdata.frame 设置为两列data.frame，其中一列代表该列名称和第二个列的值

stack(setNames(a, b$p))

---

或使用tidyverse

library(tidyverse)
a %>%
   rename_all(~ b$p) %>%
   gather %>% 
   rename(!! rlang::sym(names(b)) := key, val = value)