将矢量元素分配给矩阵

Question

我希望将vector元素分配给matrix。在我的例子中，我在my.fruit有10种水果可供购买。按sequence.of.purchased.item所示的顺序购买五片水果样品。我想创建一个matrix，其中包含购买水果的序列，如desired.result所示。

这是对desired.result如何构建的一个有点长的描述。矢量my.fruit基本上是matrix desired.result的行名。购买的第一块梅子是第一块购买的水果。 1的序列号放在第五行的第一列，该行代表李子。购买的第二块李子是购买的第三块水果。 3的序列号位于梅花行的第二列。购买的第一个苹果是购买的第二块水果。因此，数字2放在第一行的第一列中，该行代表苹果。第四块购买的水果是橙子。因此，4位于第二行的第一列，该行代表橙色。第十行代表橄榄，但没有购买橄榄。同样，没有购买樱桃，桃子，杏子，梨，葡萄柚或无花果。所以，他们的行在desired.result中都是零。

my.fruit <- c('apple', 'orange', 'cherry', 'peach', 'plum',
              'apricot', 'pear', 'grapefruit', 'fig', 'olive')

sequence.of.purchased.item <- c('plum', 'apple', 'plum', 'orange', 'plum')

desired.result <- matrix(c(
    2,    0,    0,
    4,    0,    0,
    0,    0,    0,
    0,    0,    0,
    1,    3,    5,
    0,    0,    0,
    0,    0,    0,
    0,    0,    0,
    0,    0,    0,
    0,    0,    0), ncol = 3, byrow = TRUE)

我可以使用以下方法获取每件采购水果的行和列索引：

purchase.order.row <- match(sequence.of.purchased.item, my.fruit)
purchase.order.row
#[1] 5 1 5 2 5

purchase.order.col <- sapply(1:length(sequence.of.purchased.item), 
     function(i) {sum(sequence.of.purchased.item[i] == sequence.of.purchased.item[1:i])})
purchase.order.col
#[1] 1 1 2 1 3

在这里，我尝试使用matrix将每个购买的水果的序列号分配给输出sapply：

my.output <- matrix(0, ncol = 3, nrow = 10)

sapply(1:5, function(x) my.output[purchase.order.row[x], 
                                  purchase.order.col[x]] = x)

但是，sapply语句未返回所需的输出。

my.output
      [,1] [,2] [,3]
 [1,]    0    0    0
 [2,]    0    0    0
 [3,]    0    0    0
 [4,]    0    0    0
 [5,]    0    0    0
 [6,]    0    0    0
 [7,]    0    0    0
 [8,]    0    0    0
 [9,]    0    0    0
[10,]    0    0    0

Answer 1

这可能会容易得多：

my.output <- matrix(0, ncol = 3, nrow = 10)
i <- cbind(purchase.order.row,purchase.order.col)
my.output[i] <- 1:5

Answer 2

在<<-函数中使用=而不是sapply，以便sapply知道将x分配给全局定义的变量而不是函数internal。