提取前缀和后缀之间的字符串

Question

我有这些栏目：

                 text.NANA text.22 text.32
1    Female RNDM_MXN95.tif      No      NA
12     Male RNDM_QOS38.tif      No      NA
13  Female  RNDM_WQW90.tif      No      NA
14    Male  RNDM_BKD94.tif      No      NA
15    Male  RNDM_LGD67.tif      No      NA
16   Female RNDM_AFP45.tif      No      NA

我想创建一个只有以RNDM_ 开头并以.tif 结尾的条形码的列，但不包括.tif。棘手的部分是摆脱也在同一列中的性别信息。性别信息和RNDM_之间有随机数量的空格：

                 text.NANA text.22 text.32    BARCODE
1    Female RNDM_MXN95.tif      No      NA RNDM_MXN95
12     Male RNDM_QOS38.tif      No      NA RNDM_QOS38
13  Female  RNDM_WQW90.tif      No      NA RNDM_WQW90
14    Male  RNDM_BKD94.tif      No      NA RNDM_BKD94
15    Male  RNDM_LGD67.tif      No      NA RNDM_LGD67
16   Female RNDM_AFP45.tif      No      NA RNDM_AFP45

我做了一个非常糟糕的尝试，但没有成功：

dfrm$BARCODE <- regexpr("RNDM_", dfrm$text.NANA)
# [1] 8 6 9 7 7 8 9 9 8 8 9 9 6 6 7 8 9 8
# attr(,"match.length")
# [1] 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5
# attr(,"useBytes")
# [1] TRUE

请帮忙。谢谢！

Answer 1

所以你只是想删除文件扩展名？使用file_path_sans_ext:

dfrm$BARCODE = file_path_sans_ext(dfrm$text.NANA)

如果前面的东西比较多，可以使用下面的正则表达式只提取后缀：

dfrm$BARCODE = stringr::str_match(dfrm$text.NANA, '(RNDM_.*)\\.tif')[, 2]

请注意，我在这里使用 {stringr} 包，因为用于提取正则表达式匹配的基本 R 函数非常糟糕。没有人使用它们。

我强烈建议反对在此处使用strsplit，因为它没有明确说明：通过阅读代码，绝对不清楚该代码的目的是什么。编写不言自明的代码，而不是需要在注释中解释的代码。

Answer 2

你可以使用 sapply() 和 strsplit 来做这件事，让我告诉你：

sapply(strsplit(dfrm$text.NANA, "_"),"[", 1)

应该可以的。

编辑：

sapply(strsplit(x, "[ .]+"),"[", 2)