如何用R提取数据框列中区间的上下限并保存为新列？

嗨Shelly，我来帮你搞定这个提取区间上下限的需求～ 这里有两种实用的方法，你可以根据自己的习惯选择：

方法一：用stringr包（语法更直观，推荐） #

stringr是R里处理字符串的常用包，语法简洁易懂。先安装并加载包（如果还没装的话），然后用正则表达式精准提取数字：

# 先安装stringr（如果未安装）
# install.packages("stringr")
library(stringr)

# 你的原始数据
v2 <- c("[0,1]", "[4,8]", "[10, 23]")
df <- data.frame(v2, stringsAsFactors = FALSE)

# 提取下限（Min）：匹配[后面的数字
df$Min <- as.numeric(str_extract(df$v2, "(?<=\\[)\\d+"))
# 提取上限（Max）：匹配]前面的数字
df$Max <- as.numeric(str_extract(df$v2, "\\d+(?=\\])"))

运行后你的df就会新增Min和Max两列，结果是：

v2 Min Max
1   [0,1]   0   1
2   [4,8]   4   8
3 [10, 23]  10  23

方法二：基础R实现（无需额外装包） #

如果不想安装新包，用基础R的字符串处理函数也能搞定：

# 原始数据
v2 <- c("[0,1]", "[4,8]", "[10, 23]")
df <- data.frame(v2, stringsAsFactors = FALSE)

# 第一步：去掉所有的[]括号
cleaned_strings <- gsub("\\[|\\]", "", df$v2)
# 第二步：按逗号（允许逗号后有空格）分割字符串
split_list <- strsplit(cleaned_strings, ",\\s*")
# 第三步：提取分割后的第一个和第二个元素，转成数值型
df$Min <- as.numeric(sapply(split_list, function(x) x[1]))
df$Max <- as.numeric(sapply(split_list, function(x) x[2]))

这个方法的逻辑是先清理掉括号，再把每个字符串拆成两个部分，最后分别提取转成数字，结果和上面完全一样～

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