我有一个列,其中包含不同长度的I列表,其中一些I具有版本号。
rownames(x)
"ENSP00000424360.1-D4"
"ENSP00000424360.2-D4"
"ENSP00000424360.3-D4"
"ENSP00000437781-D59"
"XP_010974537.1"
"XP_010974538.1"
"XP_010974538.2"
我希望将这些更改为:
"ENSP00000424360"
"ENSP00000424360.1"
"ENSP00000424360.2"
"ENSP00000437781"
"XP_010974537"
"XP_010974538"
"XP_010974538.1"
我可以使用以下命令分别转换ENSxx
或XPxx
make.unique(substr(rownames(x),1,15))
或
make.unique(substr(rownames(dds),1,12))
如何更改代码以获得所需的结果?
发布于 2017-07-25 17:30:35
我们使用sub
删除子字符串并应用make.unique
make.unique(sub("-.*$", "", sub("\\..*", "", rownames(x))))
#[1] "ENSP00000424360" "ENSP00000424360.1" "ENSP00000424360.2"
#[4] "ENSP00000437781" "XP_010974537" "XP_010974538" "XP_010974538.1"
数据
x <- structure(list(v1 = 1:7), .Names = "v1", row.names = c("ENSP00000424360.1-D4",
"ENSP00000424360.2-D4", "ENSP00000424360.3-D4", "ENSP00000437781-D59",
"XP_010974537.1", "XP_010974538.1", "XP_010974538.2"), class = "data.frame")
https://stackoverflow.com/questions/45299113
复制相似问题