dats = lapply(1:4, function(i){ geo_download(corhorts[[i]]) })

这段代码使用了lapply函数对数字1到4进行迭代，并在每次迭代中调用一个匿名函数。在匿名函数中，corhorts[[i]]表示一个列表corhorts中的元素，该元素被传递给geo_download函数进行处理。最终，lapply返回一个列表，其中包含了每次迭代调用geo_download函数后的结果。

可以解释为，对于数字1到4，将每个数字作为索引来访问corhorts列表中的元素，并将该元素作为参数传递给geo_download函数。然后，将每次函数调用的结果存储在一个列表中，最终返回这个列表。