在R中如何识别数据框单列的文字与数字并分别移动到不同列？

核心逻辑是通过正则表达式匹配纯数字内容，区分目标列的数字和文本，不需要安装特殊第三方包，以下两种常用实现方案均可达到需求：

步骤1：构造示例数据（可跳过直接用你自己的数据集） #

df <- data.frame(
  Name = c("John", "Kelly", "Tim", "Siobhan", "Jim"),
  Value = c("3423423", "24241", "30989", "Tuscon", "Arizona"),
  Value2 = "",
  stringsAsFactors = FALSE
)

方案1：基础R实现 #

# 筛选出Value列中非纯数字的行
text_row_index <- !grepl("^\\d+$", df$Value)
# 将纯文本内容迁移到Value2列
df$Value2[text_row_index] <- df$Value[text_row_index]
# 清空原Value列的文本内容，仅保留数字
df$Value[text_row_index] <- ""
# 若需要将Value列转为数值类型，可额外执行以下代码
# df$Value <- as.numeric(df$Value)

方案2：tidyverse套件实现 #

library(dplyr)
library(stringr)

df <- df %>%
  mutate(
    # 非纯数字内容赋值给Value2
    Value2 = if_else(!str_detect(Value, "^\\d+$"), Value, Value2),
    # 原Value列仅保留纯数字内容
    Value = if_else(str_detect(Value, "^\\d+$"), Value, "")
  )

补充说明 #

• 正则规则^\\d+$匹配完全由数字组成的字符串，只要包含任意非数字字符就会被判定为文本，符合你迁移全部纯文字内容的需求。
• 如果你需要识别的数字包含小数，把正则替换为^\\d+\\.?\\d+$即可适配整数、小数两种数字格式。
• 处理前请确保目标列是字符型而非因子型，避免匹配异常。

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