如何从data.frame中读取识别成对数字的索引？

# 加载数据框
df <- read.csv("data.csv")

# 确定包含数字索引的列
index_column <- "index_column_name"

# 将列转换为适当的数据类型
df[[index_column]] <- as.character(df[[index_column]])

# 初始化存储成对数字索引的列表
pair_indices <- list()

# 遍历数据框的每一行
for (i in 1:nrow(df)) {
  # 使用正则表达式识别成对的数字索引
  indices <- regmatches(df[[index_column]][i], gregexpr("\\d+", df[[index_column]][i]))[[1]]
  
  # 将识别到的成对数字索引存储在列表中
  pair_indices[[i]] <- indices
}

# 打印识别到的成对数字索引
print(pair_indices)