我有一个包含Gene Symbol配件的微阵列平台文本文件列表。我使用以下代码修剪Gene Symbols。
p 1< - data.frame(sapply(p 1,function(x)sub(“/。*”,“”,x)))P [[1] …
使用等同于逻辑的正则表达式管道运算符 OR :
OR
p[[1]] <- data.frame(sapply(p[[1]], function(x) sub("/.*|-.*|\\..*|\\s", "", x))) p[[2]] <- data.frame(sapply(p[[2]], function(x) sub("/.*|-.*|\\..*|\\s", "", x)))