使该代码更优雅并摆脱所有重复部分的最佳方法是什么？每个索引对应于列表中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])