應用於data.frames列表的列

Question

我有一個data.frames列表，看起來像這樣：

$ 0

            My_Patient_Name   Control       My_experiment
              Patient1         <NA>             <NA>    
              Patient2         <NA>             <NA>
              Patient3         <NA>             YES

1美元

            My_Patient_Name   Control       My_experiment
              Patient4         1,3,5             <NA>    
              Patient5         1,3,5             <NA>
              Patient6         1,3,5             <NA>         

我想檢查列表的每個data.frame中是否在Control列中有NA。 一次一個data.frame是：

 condition = sapply(mydf[[1]][2],function(x) {!all(is.na(x))}
 then    

 condition = sapply(mydf[[2]][2],function(x) {!all(is.na(x))}
 and so on. 

但是我想在列表的每個data.frame上運行它。

Answer 1

使用lapply檢查列表中每個元素的狀況

mydf = list()
mydf[[1]] <- data.frame(My_Patient_Name=c("Patient1", "Patient2", "Patient3"), Control=c(NA, NA, NA), My_experiment=c(NA,NA,"YES"))
mydf[[2]] <- data.frame(My_Patient_Name=c("Patient3", "Patient4", "Patient5"), Control=c("1,3,5", "1,3,5", "1,3,5"), My_experiment=c(NA,NA,NA))
lapply(mydf, function(df) sapply(df[2],function(x) {any(is.na(x))}))
#[[1]]
#Control 
#    TRUE 

#[[2]]
#Control 
#    FALSE