R從ID的表列表中選擇一個表

Question

我有一個表列表：

a <- c(1:10)
b <- c(11:20)
c <- c(31:40)


df1 <- data.frame(a,b,c,id="A")
df2 <- data.frame(a,b,c,id="B")
df3 <- data.frame(a,b,c,id="C")

List1 <- list(df1,df2,df3)
List1

如何從列表中選擇一個ID ==“ C”的表

謝謝您的幫助。

Answer 1

您可以使用其id值來命名列表中的每個數據框，然后使用常規列表子設置操作選擇C

names(List1) <- sapply(List1, function(x) x[1, "id"])
List1[["C"]]

Answer 2

達到此目的的許多方法之一是在列表索引中使用sapply [[ 。

> List1[[which(sapply(List1, function(x) levels(x$id)) == "C")]]
#     a  b  c id
# 1   1 11 31  C
# 2   2 12 32  C
# 3   3 13 33  C
# 4   4 14 34  C
# 5   5 15 35  C
# 6   6 16 36  C
# 7   7 17 37  C
# 8   8 18 38  C
# 9   9 19 39  C
# 10 10 20 40  C

或邏輯子集，而不是which

> List1[sapply(List1, function(x) levels(x$id)) == "C"]
## or
> m <- mapply(function(x, y){ levels(x[[y]]) }, List1, "id") == "C"
> List1[m]

Answer 3

我敢肯定某個地方有一個班輪，但是我在下面寫了一個快速函數：

getsub <- function(x) {for(i in 1:length(x)){
  if(all(x[[i]]$id== "C")){
    return(x[[i]])
  } else {
    next
  }
}}

R> getsub(List1)
    a  b  c id
1   1 11 31  C
2   2 12 32  C
3   3 13 33  C
4   4 14 34  C
5   5 15 35  C
6   6 16 36  C
7   7 17 37  C
8   8 18 38  C
9   9 19 39  C
10 10 20 40  C
R> 

Answer 4

易懂的功能：

> getlist = function(mylist){
+ for(i in 1:length(mylist)) {ifelse(mylist[[i]]$id=='C', return(mylist[[i]]),"")}
+ }
> 
> 
> getlist(List1)
    a  b  c id
1   1 11 31  C
2   2 12 32  C
3   3 13 33  C
4   4 14 34  C
5   5 15 35  C
6   6 16 36  C
7   7 17 37  C
8   8 18 38  C
9   9 19 39  C
10 10 20 40  C
>