如何在R中将含拼接数字的字符串转换为数值向量？

Base R 最简实现：eval(parse()) #

直接将字符串解析为R表达式并执行，是最便捷的base R方法：

object1 <- "c(3:6, 8, 10:13, 16, 21)"
object2 <- eval(parse(text = object1))

执行后得到的object2就是目标数值向量：

> object2
[1]  3  4  5  6  8 10 11 12 13 16 21

⚠️ 注意：这种方法仅适用于可信来源的字符串，如果字符串包含恶意代码，eval()会直接执行，存在安全风险。

Base R 安全实现：手动解析（无eval） #

如果需要处理不可信来源的字符串，可以手动拆分并处理序列，避免执行任意代码：

object1 <- "c(3:6, 8, 10:13, 16, 21)"

# 移除字符串首尾的`c(`和`)`
clean_str <- gsub("^c\\(|\\)$", "", object1)
# 按逗号分割成单个元素（忽略逗号后的空格）
elements <- strsplit(clean_str, ",\\s*")[[1]]

# 逐个处理元素：带`:`的转为连续序列，直接数字转为整数
object2 <- unlist(lapply(elements, function(item) {
  if (grepl(":", item)) {
    range_vals <- as.integer(strsplit(item, ":")[[1]])
    seq(range_vals[1], range_vals[2])
  } else {
    as.integer(item)
  }
}))

执行后结果和上面完全一致，且不需要执行任意代码，安全性更高。

其他方案：使用rlang包 #

如果允许使用第三方包，rlang的解析函数在错误处理上更友好：

library(rlang)
object1 <- "c(3:6, 8, 10:13, 16, 21)"
object2 <- eval(parse_expr(object1))

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