Как умножить векторы списков разных размеров в R - PullRequest
Новая
       19

Как умножить векторы списков разных размеров в R

0 голосов
/ 02 апреля 2019

Я пытаюсь умножить векторы, содержащиеся в списке, на другой вектор в другом списке.

Элементы каждого списка имеют разные размеры.

Списки для умножения: Concat_list и List_3: 

set.seed(10)
List_1 <- rep(list(matrix(runif(10), nrow = 10, ncol = 1)), 2)
List_2 <- rep(list(matrix(runif(10), nrow = 10, ncol = 1)), 2)
Concat_list <- lapply(seq(List_1), function(i) {
  matrix(mapply(c, List_1[[i]], List_2[[i]], SIMPLIFY = F) )  })
List_3 <- list(c(50, 25), c(10, 18))

Как мне умножить каждую строку каждого элемента Concat_list на соответствующий вектор List_3?

т.е:. 

Concat_list[[1]][[1]] * List_3[[1]]
Concat_list[[1]][[2]] * List_3[[1]]
Concat_list[[1]][[3]] * List_3[[1]]
# ...etc
Concat_list[[2]][[1]] * List_3[[2]]
Concat_list[[2]][[2]] * List_3[[2]]
# ...etc

Я пытался: 

lapply(seq(Concat_list), function(i){
  lapply(Concat_list[[i]], function(x){
  x[[i]] * List_3[[i]]
  }) 
})

lapply(seq(Concat_list), function(i){
  sapply(Concat_list[[i]], function(x){
    x[[i]] * List_3[[i]]
  })
})

Test <- lapply(seq(Concat_list), function(i) {
  matrix(mapply(function(x, y){x*y}, Concat_list[[i]], List_3[[i]], SIMPLIFY = F) )  })

Test_2 <- rep(list(matrix(nrow = nrow(Concat_list[[1]]), ncol = 1)) , length(Concat_list) )
for(i in seq(Concat_list)){
  for(j in seq(Concat_list[[i]])){
    Test_2[[i]][j] <- unlist(Concat_list[[i]][j]) * List_3[[i]]
  }
}

Map('*', Concat_list[[1]], List_3[[1]])

Ничего из этого не работает, и я стараюсь избегать двойного цикла for.

Я также попытался положить unlist() в разные места без удачи.

Вот ожидаемый результат в цикле for для первого элемента Concat_list:

# Correct for(i in 1:10){print(unlist(Concat_list[[1]][i]) * List_3[[1]])}

И то же самое, но более четко указано. 

c(0.5074782, 0.6516557) * List_3[[1]]
c(0.3067685, 0.5677378) * List_3[[1]]
c(0.4269077, 0.1135090) * List_3[[1]]

Спасибо

1 Ответ

0 голосов
/ 02 апреля 2019

Это то, что вы хотите: 

res <- Map(
    function(x, y){ as.matrix(lapply(x, function(i){ i * y })) },
    Concat_list, List_3)

вот часть окончательных результатов: 

> res[[1]][[1]]
[1] 25.37391 16.29139
> res[[1]][[2]]
[1] 15.33843 14.19344
> res[[2]][[1]]
[1]  5.074782 11.729802
> res[[2]][[2]]
[1]  3.067685 10.219280

На мой взгляд, ваш Concat_list слишком сложен. Может быть, вы можете упростить его до списка матриц 10х2.

...