Comment nommer le résultat de la liste d'une liste en R

Question

Supposons que j'ai la liste suivante d'une liste.

s <- c(1,2,3)
ss <- c(4,5,6)
S <- list(s,ss)
h <- c(4,8,7)
hh <- c(0,3,4)
H <- list(h,hh)
HH <- list(S,H)

J'aimerais nommer le résultat de la liste comme suit :

$First_model
$Res_1[[1]]
[1] 1 2 3

$Res_2[[2]]
[1] 4 5 6

$Second_model
$Res_1[[1]]
[1] 4 8 7

$Res_2[[2]]
[1] 0 3 4

J'ai essayé ce qui suit, mais ce n'est pas ce que je m'attendais.

names1 <- c("Premier","Deuxième")
# Et ensuite vous les collez à votre liste
names(HH) <- paste0(names1,"_result",  sep = "")

Answer 1

Vous pouvez essayer ce qui suit -

names1 <- c("Premier","Deuxième")

lapply(setNames(HH, paste0(names1, '_Modèle')), function(x) 
  setNames(x, paste0('Rés_', seq_along(x))))

#$Premier_Modèle
#$Premier_Modèle$Rés_1
#[1] 1 2 3

#$Premier_Modèle$Rés_2
#[1] 4 5 6

#$Deuxième_Modèle
#$Deuxième_Modèle$Rés_1
#[1] 4 8 7

#$Deuxième_Modèle$Rés_2
#[1] 0 3 4

Answer 2

library(purrr)
s <- c(1,2,3)
ss <- c(4,5,6)
S <- list(s,ss)
h <- c(4,8,7)
hh <- c(0,3,4)
H <- list(h,hh)
HH <- list(S,H)

names1 <- c("First","Second")
set_names(HH, names1) %>% map(~set_names(..1, c('Res_1', 'Res_2')))
#> $First
#> $First$Res_1
#> [1] 1 2 3
#> 
#> $First$Res_2
#> [1] 4 5 6
#> 
#> 
#> $Second
#> $Second$Res_1
#> [1] 4 8 7
#> 
#> $Second$Res_2
#> [1] 0 3 4

Créé le 2021-06-03 par le paquet reprex (v2.0.0)