如何循环访问R中的多个URL并保存到数据帧中

install.packages("httr")   # 用于进行HTTP请求
install.packages("XML")    # 用于解析XML数据
install.packages("rvest")  # 用于解析HTML数据

library(httr)
library(XML)
library(rvest)

data <- data.frame()

urls <- c("https://www.example.com/page1", "https://www.example.com/page2", "https://www.example.com/page3")

# 安装和加载所需的包
install.packages("httr")
install.packages("XML")
install.packages("rvest")
library(httr)
library(XML)
library(rvest)

# 创建空数据框
data <- data.frame()

# 定义URL向量
urls <- c("https://www.example.com/page1", "https://www.example.com/page2", "https://www.example.com/page3")

# 循环遍历URL向量
for (i in 1:length(urls)) {
  # 发送HTTP请求
  response <- GET(urls[i])
  
  # 解析URL内容
  doc <- htmlParse(response)
  
  # 提取数据
  temp_data <- html_table(doc)[[1]]
  
  # 添加到主数据框
  data <- rbind(data, temp_data)
}

# 打印数据框
print(data)