在条件内插入单元格值，以便与R中的循环一起使用

我需要一些专业的帮助。我有一个数据库的任务，它是一个庞大的数据库，有270000多行。问题是，我需要提取一些数据，以便将其应用于下一步代码

我得到：

    select(filter(datos_inversion, ANYO == i, CODUNIDAD == 76, CODNIV1 == 9, CODNIV2 == 2000, CODNIV4 == 1000, CODNIV3 %in% c(2017, 2019, 2023), CODNIV5 %in% c(1002, 1056, 1057)), VALOR = VALOR)

这有助于我从数据帧中提取所需的列，问题是我需要重复相同的代码，但要更改变量“ANYO”，表示即将到来的数字的年份（例如，如果这次是“ANYO”是在1985年使用的，下一次代码执行我需要1986年，但我不能手动执行，因为从1964年到2015年，手动执行会是一场灾难。所以只要在循环中反复执行代码，就应该更改为“i”）。我的任务还包括为它编写循环，但哪一个更好，我不知道。。。如果有人真的能帮忙，那就太好了

---

提前谢谢大家

有很多选择，但您可以使用

lappy

函数从基

R

开始

years <- 1964:2015
output <- lapply(years, function(i) yourFunction(i))
names(output) <- as.character(years)

---

您确定

lappy

来自

plyr

软件包吗？不，抱歉。我犯了个错误！我将编辑我的答案。谢谢@www@非常感谢你！唯一的问题是我不知道以后如何使用它。。我把我的变量select放在你函数的位置上。。。它输出了52个字符的列表，然后如何将其应用到我已有的函数中？bc，它给了我一个错误评估错误：找不到对象“i”。。这个案子怎么办？那么，如何每年重复使用它呢？如果您能解释这一点，请说明如果您想对输出应用第二个函数，您可以将其包括在

lappy

中，方法如下：

lappy（年份，函数（i）您的第二个函数（您的选择函数（i））

；或者，您可以编写第二行

lappy

，其中输入是

output

元素：lappy（output，function（x）yourSecondFunction（x））@JFraper谢谢，伙计，它可以工作！！

output[["yearOfInterest"]]