根据列表中的 data.frame 中的因子变量的值选择行

Question

我感觉我很亲密，但我无法让它发挥作用，我们将不胜感激。

我的目标是根据 1 个因子的值对列表中的数据进行子集化。 它是关于在不同时间点受到刺激的受试者的数据。现在我想对每个刺激的所有受试者的所有变量的数据进行子集化。 刺激的变量称为“刺激”。刺激具有例如“Happy 8”的名称。 所以示例路径：SubjList$Subject1$Stimulus["Happy 8"]（虽然这也行不通。

我的数据框具有以下结构：

Subjdf 大列表（38 个元素）

每个元素都是一个 data.frame，包含大约 4000 个观察值（变化）和 26 个变量（包括“刺激”）

现在我可以通过执行以下操作在所有主题（元素）上设置一列的子集：

 ColSub <- (lapply(SubjList,'[[','Stimulus'))

但是当我尝试实现一个条件时它不起作用。

Happy8 <- (lapply(SubjList,'[[','Stimulus'=='Happy 8'))

没有简单的选择方法，例如：

Happy8 <- SubjList$Subject1$Stimulus["Happy 8", ]

所以，我有一种方法可以仅对符合条件 op“Stimulus”=="Happy 8" 的行进行子集化。并创建具有相同变量但只有 Stimulus Happy 8 的观察的相同主题列表。

提前谢谢你！

Answer 1

这是你可以做的。数据框和列的名称不同：

DF1 <- data.frame(year = c(seq(2000,2012,by=1)), 
                    C = runif(13,0,1))
DF2 <- data.frame(year = c(seq(2000,2012,by=1)), 
                  C = runif(13,0,1))

DL <- list(DF1, DF2)

ColSub <- (lapply(DL, function(DF) {DF[DF$year >= 2005, "C"]}))
ColSub

这应该为您提供如何更改代码的想法。