如何在Rstudio上从同一网站抓取多个页面

install.packages("rvest")
install.packages("dplyr")

library(rvest)
library(dplyr)

url <- "https://example.com/page1"
page <- read_html(url)

titles <- page %>% html_nodes("h1") %>% html_text()

# 创建一个空的数据框来存储结果
results <- data.frame()

# 循环抓取多个页面
for (i in 1:5) {
  url <- paste0("https://example.com/page", i)
  page <- read_html(url)
  
  # 解析页面内容并将结果添加到数据框中
  titles <- page %>% html_nodes("h1") %>% html_text()
  results <- bind_rows(results, data.frame(Page = url, Title = titles))
}

write.csv(results, "output.csv", row.names = FALSE)