如何在r中使用for循环进行for抓取

for (page in 1:10) {
  # 在这里编写抓取数据的代码
}

library(httr)
library(rvest)

# 创建空数据框
result <- data.frame(title = character(),
                     link = character(),
                     stringsAsFactors = FALSE)

# 循环抓取3页数据
for (page in 1:3) {
  # 构造目标URL
  url <- paste0("https://example.com/page=", page)
  
  # 发送GET请求
  response <- GET(url)
  
  # 提取标题和链接
  webpage <- content(response, "text")
  html <- read_html(webpage)
  titles <- html_text(html_nodes(html, "h2"))
  links <- html_attr(html_nodes(html, "a"), "href")
  
  # 将结果添加到数据框
  result <- rbind(result, data.frame(title = titles, link = links))
}

# 打印结果
print(result)