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

这是我的解决方案，看看，

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"

Answer 3

听起来像你想要的

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

假设向量在列表中没有问题。如果您需要列表，则可以

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

如果需要提供主列表名称，请使用setNames()

Answer 4

如果您的逻辑总是相同，请尝试

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

如何在r

4 个答案: