如何将FFmpeg loudnorm首遍DCF报告转换为R语言data.frame？

目前没有专门适配FFmpeg loudnorm输出格式的DCF转R DataFrame现成函数，封装自定义函数是更实用、可复用的解决方案。以下是具体分析和优化实现：

一、为什么选自定义函数？ #

• FFmpeg的loudnorm summary输出是特定格式的文本，没有通用工具专门处理这种场景
• 自定义函数可以整合「生成命令→执行→读取解析→格式化结果」全流程，一次编写多次复用
• 能灵活处理跨系统差异（比如Windows和Linux的null设备差异），还可根据需求调整输出字段、参数配置

二、优化后的封装函数（推荐用tidyverse工具链） #

这个版本用dplyr和tidyr简化解析流程，同时解决跨系统兼容问题：

library(dplyr)
library(tidyr)

parse_loudnorm_report <- function(aud_proc_df, output_file = "loudness_rpt_all.txt", target_I = -23, target_TP = -2, target_LRA = 7) {
  # 自动适配Windows/Linux的空设备
  null_device <- if (.Platform$OS.type == "windows") "NUL" else "/dev/null"
  
  # 生成FFmpeg响度检测命令
  cmds <- with(aud_proc_df, sprintf(
    "ffmpeg -hide_banner -i %s -af loudnorm=I=%s:TP=%s:LRA=%s:print_format=summary -f null %s 2>&1 | tail -n 12 >> %s",
    in_files, target_I, target_TP, target_LRA, null_device, output_file
  ))
  
  # 批量执行命令
  lapply(cmds, system)
  
  # 读取并格式化报告为DataFrame
  loudness_result <- read.delim(output_file, header = FALSE, sep = ":", stringsAsFactors = FALSE) %>%
    # 去除字符串前后空格
    mutate(across(c(V1, V2), trimws),
           # 按每个音频文件的10行报告分组
           file_idx = rep(seq_len(nrow(.)/10), each = 10)) %>%
    # 转换为宽格式
    pivot_wider(names_from = V1, values_from = V2) %>%
    # 将列名中的空格替换为下划线，提升兼容性
    rename_with(~gsub(" ", "_", .x)) %>%
    # 关联原文件信息（可选）
    left_join(aud_proc_df %>% mutate(file_idx = seq_len(nrow(.))), by = "file_idx") %>%
    select(-file_idx)
  
  return(loudness_result)
}

# 使用示例：传入你的aud_proc_df数据框
# final_loudnorm_df <- parse_loudnorm_report(aud_proc_df)

函数优势 #

• 跨系统兼容，无需手动修改命令中的空设备路径
• 用tidyverse语法简化解析逻辑，替代原代码中繁琐的which索引
• 可自定义目标响度参数（I/TP/LRA），灵活性更高
• 自动关联原文件信息，结果可读性更强

三、基础版封装（不依赖tidyverse） #

如果不想引入tidyverse包，也可以用基础R实现：

parse_loudnorm_base <- function(aud_proc_df, output_file = "loudness_rpt_all.txt") {
  null_device <- if (.Platform$OS.type == "windows") "NUL" else "/dev/null"
  
  # 生成并执行命令
  cmds <- with(aud_proc_df, sprintf(
    "ffmpeg -hide_banner -i %s -af loudnorm=I=-23:TP=-2:LRA=7:print_format=summary -f null %s 2>&1 | tail -n 12 >> %s",
    in_files, null_device, output_file
  ))
  lapply(cmds, system)
  
  # 读取原始报告
  raw_df <- read.csv(output_file, header = FALSE, sep = ":", stringsAsFactors = FALSE)
  raw_df$V1 <- trimws(raw_df$V1)
  raw_df$V2 <- trimws(raw_df$V2)
  
  # 转换为宽格式DataFrame
  metric_names <- unique(raw_df$V1)
  num_files <- nrow(raw_df) / length(metric_names)
  loudnorm_df <- as.data.frame(matrix(raw_df$V2, nrow = num_files, byrow = FALSE))
  names(loudnorm_df) <- gsub(" ", "_", metric_names)
  # 用原文件名作为行名，更直观
  rownames(loudnorm_df) <- aud_proc_df$in_files
  
  return(loudnorm_df)
}

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