Как лучше всего сделать этот код более элегантным и избавиться от всех повторяющихся частей?Каждое указание соответствует одному из 9 элементов в списке, и я не могу понять, как сделать цикл for.
malariaonly1<- lapply(data[[1]], function(x) x[agrepl("malaria", x[,1],ignore.case = TRUE),, drop = FALSE])
malariaonly2<- lapply(data[[2]], function(x) x[agrepl("malaria", x[,1],ignore.case = TRUE),, drop = FALSE])
malariaonly3<- lapply(data[[3]], function(x) x[agrepl("malaria", x[,1],ignore.case = TRUE),, drop = FALSE])