循环遍历一个大列表以查找某些值

Question

我有一个记事本文档，列出了美国的所有邮政编码，我想查找一个特定的邮政编码（由用户指定），在该邮政编码上运行一些代码，打印出像 @987654321 这样的语句@我想做对于指定的邮政编码和出现在我的邮政编码档案中的接下来的 10 个连续的邮政编码。我的第一个问题是我不知道如何将包含所有这些数字的邮政编码文档转换为列表或数组，或者任何可以轻松运行 for 循环的东西。我对 R 非常陌生，所以请耐心等待。

Input = "20904"# User provides an input for this
    ZipData<-read.csv(file.path(wd,"DataImport","zip_code_data.csv"),
                      colClasses=c("character","NULL","factor","NULL","NULL","factor",
                                   "NULL","NULL","NULL","NULL","NULL","NULL","NULL","NULL",
                                   "NULL","NULL"),
                      col.names=c("zip","","city","","","state","","","","","","","","",
                                  "",""))
    ZipData<- as.numeric(ZipData$zip)
edit(ZipData) # Opens up a notepad document listing the zipcodes starting with "c(544, 601, 602, 603, 604, 605, 606, 610, 611, 612, 613, 614....)
# Note: typeof(ZipData) prints out "double"

    # Bunch of code that ends with:
    a <- paste("The current temperature for", cityName, Input, "is", temperature, sep=" ")
    print(a)

我想在 Input 和接下来的 10 个邮政编码上运行它。我无法制定一个循环遍历整个列表的 for 循环（我不知道 ZipData 是否可以归类为列表），找到用户指定的邮政编码，在其上运行我的代码块并冲洗并重复接下来的 10 个邮政编码。我的程序应该以列出所有温度的 10 个打印语句结束。有什么想法吗？

Answer 1

这可能是您所指的：

zip_plus10 <- function(input) {
  index <- which(zip.vector == as.numeric(input))
  paste('The current temperature for',
        city[index:(index+10)],
        state[index:(index+10)],
        zip.vector[index:(index+10)],
        'is: ',
        temps[index:(index+10)]
        )
}

zip_plus10('90210')

 [1] "The current temperature for K HI 90210 is:  65" 
 [2] "The current temperature for L ID 90211 is:  66" 
 [3] "The current temperature for M IL 90212 is:  58" 
 [4] "The current temperature for N IN 90213 is:  110"
 [5] "The current temperature for O IA 90214 is:  57" 
 [6] "The current temperature for P KS 90215 is:  91" 
 [7] "The current temperature for Q KY 90216 is:  90" 
 [8] "The current temperature for R LA 90217 is:  89" 
 [9] "The current temperature for S ME 90218 is:  108"
[10] "The current temperature for T MD 90219 is:  109"
[11] "The current temperature for U MA 90220 is:  55" 

#Data
    set.seed(444)
zip.vector <- seq(90200, 90221)
city <- LETTERS[1:length(zip.vector)]
state <- state.abb[1:length(zip.vector)]
temps <- sample(50:110, length(zip.vector))