删除“。”之后的部分字符串。

Question

删除“。”之后的部分字符串。

我正在使用NCBI参考序列登录号，如变量a：

a <- c("NM_020506.1","NM_020519.1","NM_001030297.2","NM_010281.2","NM_011419.3", "NM_053155.2")

要获得从biomart包我需要删除的信息.1，.2登录号等设备中后。我通常使用以下代码执行此操作：

b <- sub("..*", "", a)# [1] "" "" "" "" "" ""

但正如您所看到的，这不是这个变量的正确方法。谁能帮我这个？

Answer 1

你只需要逃避这段时间：a&nbsp;<-&nbsp;c("NM_020506.1","NM_020519.1","NM_001030297.2","NM_010281.2","NM_011419.3",&nbsp;"NM_053155.2")gsub("\\..*","",a)[1]&nbsp;"NM_020506"&nbsp;&nbsp;&nbsp;&nbsp;"NM_020519"&nbsp;&nbsp;&nbsp;&nbsp;"NM_001030297"&nbsp;"NM_010281"&nbsp;&nbsp;&nbsp;&nbsp;"NM_011419"&nbsp;&nbsp;&nbsp;&nbsp;"NM_053155"

Answer 2

我们可以假装它们是文件名并删除扩展名：tools::file_path_sans_ext(a)#&nbsp;[1]&nbsp;"NM_020506"&nbsp;&nbsp;&nbsp;&nbsp;"NM_020519"&nbsp;&nbsp;&nbsp;&nbsp;"NM_001030297"&nbsp;"NM_010281"&nbsp;&nbsp;&nbsp;&nbsp;"NM_011419"&nbsp;&nbsp;&nbsp;&nbsp;"NM_053155"