在R中使用strsplit分割文本生成新列及解决mutate报错问题

AI 小北

2026-7-1

问题分析与解决

错误Error in is.factor(x) : object 'strike' not found的核心原因是：你执行mutate时引用的strike列在当前数据集中不存在——要么是separate函数的拆分逻辑没生成该列，要么是你写错了列名。

解决步骤与实现方案

1. 先确认数据集的列结构

执行以下代码查看当前数据的列名，验证是否真的没有strike列：

colnames(你的数据集名称)

2. 调整`separate`的拆分逻辑

separate的拆分效果完全依赖于你Name列的实际格式，以下是两种常见场景的处理方式：

场景1：Name列格式为`股票代码_到期日_期权标识`（如`600000_20240630_C5.0`）

如果separate只拆分出了股票代码、到期日、包含期权类型和行权价的混合列（比如叫strike_details），可以直接对混合列提取信息：

library(tidyverse)
library(readxl)

# 导入Excel
df <- read_excel("你的文件路径.xlsx")

# 第一步拆分出基础字段
df <- df %>%
  separate(Name, into = c("stock_code", "expiry_date", "strike_details"), sep = "_")

# 提取期权类型和行权价
df <- df %>%
  mutate(
    # 去掉数字和小数点，保留期权类型（C/P）
    option_type = gsub("\\d+|\\.", "", strike_details),
    # 去掉字母，保留行权价并转为数值型
    strike = as.numeric(gsub("[^0-9.]", "", strike_details))
  )

场景2：用`extract`一步精准拆分（推荐）

如果Name列格式固定，直接用正则表达式一次性拆分出所有需要的字段，避免分步出错：

df <- df %>%
  extract(Name, 
          into = c("stock_code", "expiry_date", "option_type", "strike"),
          # 正则表达式匹配：股票代码_8位到期日_期权类型_行权价
          regex = "(.*)_(\\d{8})_([CP])(\\d+\\.?\\d*)",
          convert = TRUE) # 自动将strike转为数值型