代码之家 › 专栏 › 技术社区 › Lotw

如何删除最后第三个“uu”[重复]

string regex r

Lotw · 技术社区 · 6 年前

这个问题已经有了答案:

How to delete everything after nth delimiter in R? 2答

我有一个带有字符串的列,如下面的示例:

string_cell<-"32_5_56_78_a267_b679_bh76_26442"

或

string_cell<-"5739_67503_8492_hgjmk"

我只想把所有的东西都放在最后三个“_uuu”之后,这样我就能得到:

b679_bh76_26442
67503_8492_hgjmk

我看过删除最后一个字符后所有内容的主题,如 This Example 但似乎找不到我问题的答案。

非常感谢!

3 回复 | 直到 6 年前

denis 6 年前

string_cell <- c("32_5_56_78_a267_b679_bh76_26442", "5739_67503_8492_hgjmk")
gsub("^.*_([A-z0-9]+_[A-z0-9]+_[A-z0-9]+$)","\\1",string_cell)

[1] "b679_bh76_26442"  "67503_8492_hgjmk"

AkselA 6 年前

string_cell <- c("32_5_56_78_a267_b679_bh76_26442", "5739_67503_8492_hgjmk")

s <- strsplit(string_cell, "_")

sapply(s, function(x) paste(tail(x, 3), collapse="_"))
# [1] "b679_bh76_26442"  "67503_8492_hgjmk"

jay.sf 6 年前

这个怎么样?它分割字符,定位最后的第三个字符 "_" 并将剩余部分粘贴在一起。

myKeep <- function(string_cell){
  s <- strsplit(string_cell, "")[[1]]
  paste0(s[(rev(grep("_", s))[3]:nchar(string_cell))[-1]], collapse="")
}

结果:

string_cell <- c("32_5_56_78_a267_b679_bh76_26442", "5739_67503_8492_hgjmk")

> sapply(string_cell, myKeep)
32_5_56_78_a267_b679_bh76_26442           5739_67503_8492_hgjmk 
              "b679_bh76_26442"              "67503_8492_hgjmk"

在排名 Regex是最受欢迎的:(在vec长度1000上测试)

Unit: milliseconds
       expr      min       lq      mean    median        uq        max neval cld
      regex  5.39784  5.53114  5.634398  5.590711  5.664186   8.128395   100 a  
     myKeep 51.74150 52.29435 54.449057 52.555338 52.973864  76.760409   100  b 
 paste(tail 72.83538 74.05970 81.254415 74.635637 95.737676 130.356893   100   c

推荐文章

lonix · 使用sed从JSON中提取非贪婪正则表达式

1 年前

me-me · regex检查电子邮件字符串是否有@后跟一个点以及点符号后至少2个字符[重复]

2 年前

Dave Guerrero · 是否有一个正则表达式模式来捕获字符串中直到第一个字母字符的数字?

2 年前

Dima Malko · 如何在指定符号前添加符号?

2 年前

shekharsabale · 从列表元素捕获子字符串

2 年前

maycca · 正则表达式:过滤年份数值大于某个值的文件?字符串中编码的年份

2 年前

Katia · 根据特定规则进行多行匹配

2 年前

Andrei Cleland · 在长正则表达式中包含unicode字符

2 年前

MHA · Pandas str.extract()以字母结尾的数字

2 年前

Slava Vir · 如何查找后面“/”之间的最后一组

2 年前