Блог

Я хочу заменить последние строки (называемые «h24») всех элементов в списке (org) на другой список (ch), каждый из элементов которого содержит одно значение. Структуры данных были приведены в конце. Также мне нужно сохранить «h24» в качестве имени строки.

Вот мои исходные данные (org);

 $`01-2020`
    [,1]
m5    NA
m10   NA
m15   NA
m30   NA
h1    NA
h2    NA
h3    NA
h4    NA
h5    NA
h6    NA
h8    NA
h12   NA
h18   NA
h24   NA

$`01-2021`
      [,1]
m5   0.910
m10  1.819
m15  2.729
m30  5.401
h1  10.150
h2  20.300
h3  30.450
h4  31.935
h5  42.085
h6  40.242
h8  41.083
h12 54.158
h18 84.400
h24 87.586

$`01-2022`
      [,1]
m5   0.680
m10  1.360
m15  2.029
m30  3.862
h1   6.501
h2  13.002
h3  16.452
h4  18.895
h5  22.970
h6  27.564
h8  37.271
h12 30.600
h18 52.338
h24 55.374
  

данные для замены

 $`01-2020`
[1] 103.03

$`01-2021`
[1] 99

$`01-2022`
[1] 87
  

Желаемый результат

 $`01-2020`
        [,1]
    m5    NA
    m10   NA
    m15   NA
    m30   NA
    h1    NA
    h2    NA
    h3    NA
    h4    NA
    h5    NA
    h6    NA
    h8    NA
    h12   NA
    h18   NA
    h24   103.03
    
    $`01-2021`
          [,1]
    m5   0.910
    m10  1.819
    m15  2.729
    m30  5.401
    h1  10.150
    h2  20.300
    h3  30.450
    h4  31.935
    h5  42.085
    h6  40.242
    h8  41.083
    h12 54.158
    h18 84.400
    h24 99
    
    $`01-2022`
          [,1]
    m5   0.680
    m10  1.360
    m15  2.029
    m30  3.862
    h1   6.501
    h2  13.002
    h3  16.452
    h4  18.895
    h5  22.970
    h6  27.564
    h8  37.271
    h12 30.600
    h18 52.338
    h24 87
 
  

Структуры данных

1. исходные данные

    org<-list(`01-2020` = structure(c(NA_real_, NA_real_, NA_real_, NA_real_, 
            NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
            NA_real_, NA_real_, NA_real_), .Dim = c(14L, 1L), .Dimnames = list(
                c("m5", "m10", "m15", "m30", "h1", "h2", "h3", "h4", "h5", 
                "h6", "h8", "h12", "h18", "h24"), NULL)), `01-2021` = structure(c(0.91, 
            1.819, 2.729, 5.401, 10.15, 20.3, 30.45, 31.935, 42.085, 40.242, 
            41.083, 54.158, 84.4, 87.586), .Dim = c(14L, 1L), .Dimnames = list(
                c("m5", "m10", "m15", "m30", "h1", "h2", "h3", "h4", "h5", 
                "h6", "h8", "h12", "h18", "h24"), NULL)), `01-2022` = structure(c(0.68, 
            1.36, 2.029, 3.862, 6.501, 13.002, 16.452, 18.895, 22.97, 27.564, 
            37.271, 30.6, 52.338, 55.374), .Dim = c(14L, 1L), .Dimnames = list(
                c("m5", "m10", "m15", "m30", "h1", "h2", "h3", "h4", "h5", 
                "h6", "h8", "h12", "h18", "h24"), NULL)))
     

данные для замены

 ch<-list(`01-2020` = 103.03, `01-2021` = 87.58, `01-2022` = 55.37)
  

Мы можем использовать Map для перебора соответствующих элементов обоих list и replace последней строки ( nrow ) с элементом ‘ch’

 org1 <- Map(function(x, y) replace(x, nrow(x), y), org, ch[names(org)])
  

Если он должен заменяться только тогда, когда это пропущенное значение

 org1 <- Map(function(x, y) replace(x, seq_len(nrow(x)) == nrow(x) amp; 
        is.na(x), y), org, ch[names(org)])