如何使用R的download.file()循环下载数据框列中存储的所有URL对应文件

你可以直接遍历column_1列的URL向量完成批量下载，有两种常用实现方式，同时要注意为每个文件设置不同的保存名，避免后下载的文件覆盖之前的文件：

方法1：基础for循环（可读性最高） #

# 提取所有待下载的URL向量
url_list <- df$column_1

# 遍历每个URL完成下载
for (url in url_list) {
  # 提取URL末尾的原文件名作为本地保存名，避免重名覆盖
  save_name <- basename(url)
  download.file(url = url, destfile = save_name, method = "curl")
}

方法2：lapply简写（R风格惯用写法） #

代码更简洁，不需要显式写循环逻辑：

invisible(lapply(df$column_1, function(x) {
  download.file(url = x, destfile = basename(x), method = "curl")
}))

加invisible是为了避免运行后输出不必要的空列表结果。

可选优化配置 #

• 统一保存到指定文件夹：

  # 新建存储文件夹，已存在时不会报错
  dir.create("target_folder", showWarnings = FALSE)
  
  lapply(df$column_1, function(x) {
    save_path <- file.path("target_folder", basename(x))
    download.file(url = x, destfile = save_path, method = "curl")
  })
  

• 异常兼容：遇到下载失败的链接时自动跳过，不中断整个下载流程，同时打印错误信息：

  dir.create("target_folder", showWarnings = FALSE)
  
  lapply(df$column_1, function(x) {
    tryCatch({
      save_path <- file.path("target_folder", basename(x))
      download.file(url = x, destfile = save_path, method = "curl")
    }, error = function(e) {
      message("下载失败: ", x, " | 错误原因: ", e$message)
    })
  })
  

内容的提问来源于stack exchange，提问作者aurelius_37809