如何在R中编写循环批量加载AVI视频并导出帧为同名JPG图片

原代码存在3个核心错误：

• 没必要使用assign()函数动态创建变量，会导致无法统一管理读取到的视频帧对象
• 第一个循环中p仅会保存最后一个视频的帧对象，不是文件名列表，第二个循环遍历p完全不成立
• image_write()漏传了要写入的图像对象参数，也没有把输出路径的后缀从.AVI替换为.jpg

library(magick)

# 统一配置文件夹路径，修改一处即可
folder_path <- "C:\\Users\\Desktop\\folder_name\\"

# 获取所有AVI文件的完整路径
avi_files <- list.files(path = folder_path, pattern = "\\.AVI$", full.names = TRUE)

# 单个循环完成读取+写入，不需要拆分两个循环
for (avi_path in avi_files) {
  # 读取视频取帧，fps=0.1的逻辑和你原有逻辑一致
  video_frame <- image_read_video(avi_path, fps = 0.1)
  # 生成输出jpg路径：直接替换后缀名
  jpg_path <- gsub("\\.AVI$", ".jpg", avi_path, ignore.case = TRUE)
  # 写入图片
  image_write(video_frame, path = jpg_path, format = "jpg")
}

• 用full.names = TRUE直接获取文件完整路径，不需要反复拼接路径字符串，降低出错概率
• 正则\\.AVI$确保只匹配后缀为.AVI的文件，避免匹配到文件名中带AVI的其他文件；ignore.case = TRUE可兼容小写.avi后缀的文件，不需要可删除
• 单循环完成全部操作，逻辑更简洁，也不会出现变量污染问题

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