r - 如何将数据框转换为组合矩阵

Question

我有一个一行数据框，其中包含两个变量的方程的结果(我们称它们为 X 和 Y；为简单起见，该方程是一个总和)。我需要将该数据帧转换为矩阵，在其中我可以看到这些变量的组合。这是一个可重现的示例:

x1_y1 <- 2 #Here x = 1, y = 1
x1_y2 <- 3 #Here x = 1, y = 2
x2_y1 <- 3 #Here x = 2, y = 1
x2_y2 <- 4 #Here x = 2, y = 2

df <- data.frame(x1_y1, x1_y2, x2_y1, x2_y2)

我希望输出是这样的:

有人知道如何实现这一目标吗？提前致谢!

Answer 1

通过 strcapture 提取名称组件后的 tapply 尝试:

tapply(unlist(df), strcapture("(.+)_(.+)", names(df), proto=list(x="",y="")), I)
#    y
#x    y1 y2
#  x1  2  3
#  x2  3  4