R语言解析命令行参数生成正确键值对数据框的问题求助

问题场景 #

执行命令：

Rscript test.R ../Data/bam/a.bam:0 ../Data/bam/b.bam:0.1 ../Data/bam/c.bam:0.5 ../Data/bam/d.bam:1

目标是将命令行参数解析为key（文件名）和value（对应数值）的键值对列表，但原代码输出不符合预期。

原代码 #

#test.R
args <- commandArgs(trailingOnly = TRUE)

key_value_pairs <- strsplit(args, " ")
key_value_pairs <- lapply(key_value_pairs, function(x) strsplit(basename(x), ":")[[1]])
key_value_pairs <- as.data.frame(key_value_pairs, stringsAsFactors = FALSE)

colnames(key_value_pairs) <- c("key", "value")
key_value_pairs$value <- as.numeric(key_value_pairs$value)

print(key_value_pairs)

错误输出 #

key value
1 a.bam    NA
2                                           0  
                                           NA
1 b.bam
2                                        0.1
                                           NA
1 c.bam
2                                         0.5
                                           NA
1 d.bam
2                                        1
                                           NA

期望输出 #

key value
a.bam  0.0
b.bam  0.1
c.bam  0.5
d.bam  1.0

问题原因 #

1. 多余的空格分割：commandArgs(trailingOnly = TRUE)已经自动将每个命令行参数拆分为args向量的独立元素，无需再用strsplit(args, " ")处理，这一步会将每个参数包装为单元素列表，后续处理逻辑混乱。
2. 数据框转换错误：直接将lapply返回的列表（每个元素是长度为2的键值向量）用as.data.frame()转换，会把每个列表元素作为数据框的一列，而非一行，导致结构完全错位。

修复后的代码 #

#test.R
args <- commandArgs(trailingOnly = TRUE)

# 处理每个参数：提取文件名并分割键值
key_value_pairs <- lapply(args, function(x) {
  split_pair <- strsplit(basename(x), ":")[[1]]
  # 确保每个分割结果都是长度为2的向量（避免异常参数导致错误）
  if(length(split_pair) != 2) {
    stop(paste("Invalid argument format:", x))
  }
  split_pair
})

# 将列表转换为数据框（每个列表元素作为一行）
key_value_pairs <- do.call(rbind, key_value_pairs)
key_value_pairs <- as.data.frame(key_value_pairs, stringsAsFactors = FALSE)

colnames(key_value_pairs) <- c("key", "value")
key_value_pairs$value <- as.numeric(key_value_pairs$value)

print(key_value_pairs)

修复后输出 #

key value
1 a.bam    0.0
2 b.bam    0.1
3 c.bam    0.5
4 d.bam    1.0

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