Lapply на столбцах списка 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 списка NA в столбце Control. Для одного 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