在最后一位数字上单独列

Question

假设我有一个这样的 df：

x <- data.frame("SN" = 1:3, "Age" = c(21,15,2), "Name" = c("Q62yes","Q44_1_1Maybe", "Q2Some times"))

我想将 Name 列分开，以便：

x_out <- data.frame("SN" = 1:3, "Age" = c(21,15,2), "Name" = c("Q62","Q44_1_1","Q2"), "New" = c("yes", 'Maybe', 'some times'))

我试过这个，但我不认为我的正则表达式没有按预期将它分成两组。 有什么建议么？

x %>% 
  tidyr::separate(Name,c("name",'new'), sep = "(Q[[:digit:]]*_[[:digit:]])*([[:alpha:]]*\\s*)")

Answer 1

您可以使用

x %>% 
   tidyr::extract(Name,c("name",'new'), "(.*?\\d)([[:alpha:]].*)")

正则表达式的意思是：

• (.*?\\d) - 第 1 组：任何零个或多个字符尽可能少，直到后面的数字与后续子模式
• ([[:alpha:]].*) - 第 2 组：一个字母，然后是字符串的其余部分。

请参阅正则表达式演示。

带输出的 R 测试：

> x %>% 
+   tidyr::extract(Name,c("name",'new'), "(.*?\\d)([[:alpha:]].*)")
  SN Age    name        new
1  1  21     Q62        yes
2  2  15 Q44_1_1      Maybe
3  3   2      Q2 Some times

Answer 2

我们可以使用正则表达式环视将数字（ \\\\d ）和非数字（ [A-Za-z] ） separate

library(tidyr)
library(dplyr)
x %>% 
    separate(Name, into = c("Name", "New"), sep="(?<=\\d)(?=[A-Za-z])")

-输出

SN Age    Name        New
1  1  21     Q62        yes
2  2  15 Q44_1_1      Maybe
3  3   2      Q2 Some times

---

请注意，与extract相比，当我们没有数字时，这也将起作用

x$Name[3] <- "hello"