R语言中基于另一列字符生成新列的更优实现方法问询

嘿，我懂你想要更优雅简洁的方式来基于label列的中间字符生成新列，这里有几个实用又清爽的方案，适配不同的场景：

1. 固定长度标签：用Base R的substr()（最直接） #

如果你的label都是固定3位长度的（像例子里的AF1、AO1这样），直接用substr()提取第2个字符就好，代码超简洁：

df$new_col <- substr(df$label, start = 2, stop = 2)

运行后你的数据框就会变成：

label somevalue new_col
1 AF1 1 F
2 AF2 2 F
3 AO1 3 O
4 AO1 4 O

2. Tidyverse风格：用stringr::str_sub() #

如果你习惯用tidyverse的管道语法，stringr包的str_sub()和substr逻辑一致，但更贴合tidy流程：

library(dplyr)
library(stringr)

df <- df %>%
  mutate(new_col = str_sub(label, 2, 2))

3. 可变长度标签：正则表达式适配更灵活 #

如果你的label长度不固定（比如可能出现AF10、AOF2这类格式），可以用正则表达式精准匹配中间的目标字符。比如要提取数字前的最后一个字母，可以用str_extract()：

df$new_col <- str_extract(df$label, "(?<=^[A-Z])[A-Z](?=[0-9])")

这个正则的逻辑是：匹配「开头大写字母之后、数字之前」的那个大写字母，不管前后的字符长度是多少，都能准确提取中间的目标字符。

这些方法都比手动循环或者复杂的字符串拆分要优雅得多，你可以根据自己的实际数据格式选最合适的~

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