使用 R 抓取数据时如何添加循环？

Question

我正在尝试根据 Trulia.com 的数据按邮政编码创建犯罪数据数据库。我有下面的代码，但到目前为止它只产生 1 行数据。在下面的代码中，Zipcodes 只是美国邮政编码的列表。谁能告诉我我需要添加什么才能使它贯穿我的整个列表“i”？

这里是 Trulia 页面之一的链接供参考：https://www.trulia.com/real_estate/20004-Washington/crime/

更新： 以下是可供下载的邮政编码：https://www.dropbox.com/s/uxukqpu0v88d7tf/Zip%20Code%20Database%20wo%20Boston.xlsx?dl=0

在意识到犯罪统计数据根据邮政编码以不同的顺序显示后，我这次也稍微更改了代码。是否可以让循环每个邮政编码产生 4 行？这目前有效，但仅生成数据集中的最后一个邮政编码。我不知道如何确保每个邮政编码的数据记录在不同的行上，因此它不会覆盖并且只留下最后一个邮政编码的一行。

请帮忙！！

 library(rvest)

 data=data.frame(Zipcodes)
 for(i in data$Zip.Code)
 {  
 site <- paste("https://www.trulia.com/real_estate/",i,"-Boston/crime/", sep="")
 site <- html(site)

 crime<- data.frame(zip =i,
        type =site %>% html_nodes(".brs") %>% html_text() ,
        stringsAsFactors=FALSE)
}
View(crime)

如果该代码不起作用，请尝试以下操作：

data=data.frame(Zillow_Data_for_R_Test)
for(i in data$Zip.Code)
site <- paste("https://www.trulia.com/real_estate/",i,"-Boston/crime/", sep="")
site <- read_html(site)
crime<- data.frame(zip =i,
         theft =site %>% html_nodes(".crime-text-0") %>% html_text() ,
         assault =site %>% html_nodes(".crime-text-1") %>% html_text() ,
         arrest =site %>% html_nodes(".crime-text-2") %>% html_text() ,
         vandalism =site %>% html_nodes(".crime-text-3") %>% html_text() ,
         robbery =site %>% html_nodes(".crime-text-4") %>% html_text() ,
         type =site %>% html_nodes(".clearfix") %>% html_text() ,
         stringsAsFactors=FALSE)
View(crime)

Answer 1

@r2evans 的评论已经给出了答案。由于@ShanCham 询问如何实际实现这一点，我想用以下代码进行指导，这比评论更冗长，因此不能作为附加评论发布。

library(rvest)

#only two exemplary zipcodes, could be more, of course
zipcodes <- c("02110", "02125")

crime <- lapply(zipcodes, function(z) {

  site <- read_html(paste0("https://www.trulia.com/real_estate/",z,"-Boston/crime/"))

           #for illustrative purposes:
           #introduced as.numeric to numeric columns
           #exluded some of your other columns and shortenend the current text in type
           data.frame(zip = z,
                      theft = site %>% html_nodes(".crime-text-0") %>% html_text() %>% as.numeric(),
                      assault = site %>% html_nodes(".crime-text-1") %>% html_text() %>% as.numeric() ,
                      type = site %>% html_nodes(".clearfix") %>% html_text() %>% paste(collapse = " ") %>% substr(1, 50) ,
                      stringsAsFactors=FALSE)
})

class(crime)
#list

#Output are lists that can be bound together to one data.frame
crime <- do.call(rbind, crime)

#crime is a data.frame, hence, classes/types are kept
class(crime$type)
# [1] "character"
class(crime$assault)
# [1] "numeric"