Как создать список внутри списка, используя элементы из одного вектора, в r

Question

Я пытаюсь создать списки внутри списков, используя один вектор в R.

У меня есть вектор

Conditions = c('A', 'B', 'C', 'D')

и я хочу список, содержащий A, B, C и D (без проблем). Но тогда я также хочу, чтобы это были списки, содержащие четыре элемента, названные по следующим строкам: A vs A, A vs B, ... D vs C, D vs D, в конечном итоге заканчивающиеся списком из четырех списков (A, B , C и D) каждый из которых содержит еще четыре списка (списки 'vs'), к которым я могу добавить фреймы данных.

по сути, я хочу что-то вроде этого:

My list
 |
 |
 |        /- A vs A       /- B vs A      /- C vs A      /- D vs A
 |       /               /              /              /
 |      /- A vs B       /- B vs B      /- C vs B      /- D vs B
 |     /               /              /              /
 ---A-|-------------B-|------------C-|------------D-|                       
       \               \              \              \
        \ - A vs C      \ - B vs C     \ - C vs C     \ - D vs C
         \               \              \              \  
          \- A vs D       \- B vs D      \- C vs D      \- D vs D

Вот что я пробовал:

Conditions <- c('A', 'B', 'C', 'D')

MyList <- as.list(Conditions) 

for(i in 1:length(MyList)) {
    for(i in 1:length(Conditions)) {
    MyList[i] <- list(paste(MyList[i], 'vs', Conditions[i]))
  }
}

Но это не работает. Например, мой первый предмет просто превращается из A в A vs A vs A vs A vs A.

Редактировать: для большей ясности, я бы хотел,

Список, например,

Letters

Это будет содержать четыре списка,

A, B, C, D

Они в свою очередь будут содержать списки, соответствующие их именам:

A: A vs A, A vs B, A vs C, A vs D B: B vs A, B vs B, B vs C, B vs D C: C vs A, C vs B, C vs C, C vs D D: D vs A, D vs B, D vs C, D vs D

Затем я помещу фрейм данных в каждое «vs».

Самый полезный ответ до сих пор был от MrFlick:

lapply(Conditions, function(x) 
  as.list(paste(x, "vs", Conditions)))

Что возвращает:

[[1]]
[[1]][[1]]
[1] "A vs A"

[[1]][[2]]
[1] "A vs B"

[[1]][[3]]
[1] "A vs C"

...

[[4]][[2]]
[1] "D vs B"

[[4]][[3]]
[1] "D vs C"

[[4]][[4]]
[1] "D vs D"

Все, что я хочу, это чтобы список был пустым, а строка использовалась в качестве имени. Для элемента чуть выше я думаю, что это будет выглядеть так:

[[D]][[D vs D]]
    [1] NA        #Data Frame DvsD.Rda to be added here later.

Answer 1

Я думаю, что вы пытаетесь сделать что-то вроде этого:

Conditions <- c('A', 'B', 'C', 'D')

MyList = lapply(Conditions, function(x) list())
names(MyList) = Conditions

for(i in names(MyList)) {
    for(j in 1:length(Conditions)) {
        MyList[[i]][[paste(i, 'vs', Conditions[j])]] = NA #Put NA or the data frame you want.
    }
}

Вывод:

$A
$A$`A vs A`
[1] NA

$A$`A vs B`
[1] NA

$A$`A vs C`
[1] NA

$A$`A vs D`
[1] NA


$B
$B$`B vs A`
[1] NA

$B$`B vs B`
[1] NA

$B$`B vs C`
[1] NA

$B$`B vs D`
[1] NA


$C
$C$`C vs A`
[1] NA

$C$`C vs B`
[1] NA

$C$`C vs C`
[1] NA

$C$`C vs D`
[1] NA


$D
$D$`D vs A`
[1] NA

$D$`D vs B`
[1] NA

$D$`D vs C`
[1] NA

$D$`D vs D`
[1] NA

Answer 2

Если ваша логика всегда одинакова, попробуйте

Conditions = c('A', 'B', 'C', 'D')
L=setNames(as.list(Conditions),Conditions)

L=lapply(L, function(x){
  setNames(vector("list",length(Conditions)),paste0(x," vs ",Conditions))
})

> str(L)
List of 4
 $ A:List of 4
  ..$ A vs A: NULL
  ..$ A vs B: NULL
  ..$ A vs C: NULL
  ..$ A vs D: NULL
 $ B:List of 4
  ..$ B vs A: NULL
  ..$ B vs B: NULL
  ..$ B vs C: NULL
  ..$ B vs D: NULL
 $ C:List of 4
  ..$ C vs A: NULL
  ..$ C vs B: NULL
  ..$ C vs C: NULL
  ..$ C vs D: NULL
 $ D:List of 4
  ..$ D vs A: NULL
  ..$ D vs B: NULL
  ..$ D vs C: NULL
  ..$ D vs D: NULL

Answer 3

Звучит так, как ты хочешь

lapply(Conditions, paste, "vs", Conditions)

Предполагается, что с векторами все в порядке. Если вам нужны списки, то вы можете сделать

lapply(Conditions, function(x) as.list(paste(x, "vs", Conditions)))

Если вам нужно дать имена в главном списке, используйте setNames()

Answer 4

Вот мое решение, посмотрите,

vec <- c("A", "B", "C", "D")

res <- lapply(vec, function(x) {
    out <- expand.grid(x, vec)
    lapply(1:nrow(out), function(y) {
        paste(out[y, 1], " vs ", out[y, 2])
    })
})
str(res)

Результат:

List of 4
 $ :List of 4
  ..$ : chr "A  vs  A"
  ..$ : chr "A  vs  B"
  ..$ : chr "A  vs  C"
  ..$ : chr "A  vs  D"
 $ :List of 4
  ..$ : chr "B  vs  A"
  ..$ : chr "B  vs  B"
  ..$ : chr "B  vs  C"
  ..$ : chr "B  vs  D"
 $ :List of 4
  ..$ : chr "C  vs  A"
  ..$ : chr "C  vs  B"
  ..$ : chr "C  vs  C"
  ..$ : chr "C  vs  D"
 $ :List of 4
  ..$ : chr "D  vs  A"
  ..$ : chr "D  vs  B"
  ..$ : chr "D  vs  C"
  ..$ : chr "D  vs  D"