R:如何从矩阵的每一行添加具有随机选择的值的列？

Question

我先说我是一个 R 菜鸟，我认为这可能有一个简单的解决方案，但我正在努力找到它。

我有一个包含 2 列和 1,000 行的矩阵。保持行固定，我想创建一个新变量，从 2 列中随机选择一个元素。例如制作一个简单的矩阵:

        matrix(c(1,1,4,6,1,3,2,1,1,7), ncol=2)

        [,1] [,2] [,3]
  [1,]    1    3    3
  [2,]    1    2    1  
  [3,]    4    1    4
  [4,]    6    1    1
  [5,]    1    7    7

在上面的简化矩阵中，第 3 列(我刚刚手动添加)仅包含来自相应行中任一先前列的随机元素。我的问题是，我将如何在 R 中创建这样一个变量？我也不一定需要在矩阵本身内创建它。

提前谢谢了。

Answer 1

t <- matrix(c(1,1,4,6,1,3,2,1,1,7), ncol=2)
cbind(t,apply(t,1,function(x) sample(x,size=1)))

      [,1] [,2] [,3]
[1,]    1    3    1
[2,]    1    2    2
[3,]    4    1    4
[4,]    6    1    1
[5,]    1    7    1