несколько списков объединяет ошибки в R

Question

Я хотел объединить несколько списков, но получил неправильные результаты

Код, который я использовал

hiv.Scatter <- list(predictions = predictdata, labels = L)

for (k in 1:2){
  hiv.Scatter <-
    list(predictions = append(
      list(hiv.Scatter$predictions),
      list(predictdata)
    ),
    labels = append(list(hiv.Scatter$labels), list(L)))
}

Но используйте код выше, я получил очень странные результаты

ожидаемые результаты:

> str(hiv.Scatter)
List of 2
 $ predictions:List of 3
  ..$ : num [1:6] 0.0287 0.00648 0.00926 0.04352 0.01296 ...
  ..$ : num [1:6] 0.0287 0.00648 0.00926 0.04352 0.01296 ...
  ..$ : num [1:6] 0.0287 0.00648 0.00926 0.04352 0.01296 ...
 $ labels     :List of 3
  ..$ : num [1:6] 1 1 1 1 1 1
  ..$ : num [1:6] 1 1 1 1 1 1
  ..$ : num [1:6] 1 1 1 1 1 1

Данные, которые я использовал

> dput(L)
c(1, 1, 1, 1, 1, 1)
> dput(predictdata)
c(0.0287037037037037, 0.00648148148148148, 0.00925925925925926, 
0.0435185185185185, 0.012962962962963, 0.00833333333333333)

Спасибо за вашу помощь

Answer 1

Смотрите это,

hiv.Scatter <- list(predictions = list(predictions = predictdata),
                    labels = list(labels = L))    
for (k in 1:2){
  hiv.Scatter[[1]] <- append(hiv.Scatter[[1]], 
                                    list(predictions = predictdata))
  hiv.Scatter[[2]] <- append(hiv.Scatter[[2]], list(labels = L))
}

ИЛИ, это

hiv.Scatter <- list(predictions = list(predictions = predictdata),  
                    labels = list(labels = L))

for (k in 1:2){
  hiv.Scatter$predictions <- append(hiv.Scatter$predictions, 
                             list(predictions = predictdata))
  hiv.Scatter$labels <- append(hiv.Scatter$labels, list(labels = L))
}

Что, кажется, дает желаемый результат

str(hiv.Scatter)
# List of 2
# $ predictions:List of 3
# ..$ predictions: num [1:6] 0.0287 0.00648 0.00926 0.04352 0.01296 ...
# ..$ predictions: num [1:6] 0.0287 0.00648 0.00926 0.04352 0.01296 ...
# ..$ predictions: num [1:6] 0.0287 0.00648 0.00926 0.04352 0.01296 ...
# $ labels          :List of 3
# ..$ labels: num [1:6] 1 1 1 1 1 1
# ..$ labels: num [1:6] 1 1 1 1 1 1
# ..$ labels: num [1:6] 1 1 1 1 1 1