gsub函数如何匹配

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

"ENSG00000242268.2"  "ENSG00000188026.12" "ENSG00000270112.3"
如上，想批量把小数点后面的内容去掉，代码：gsub("/.*.","",rownames(count))，不可行，求教

                                 A6.CD8.P5.rep1.b2.PSO    A7.CD8.P5.rep1.b2.PSO
ENSG00000158486.13                     1                     1
ENSG00000273639.4                      0                     0
ENSG00000198242.13                   289                     2
ENSG00000231981.3                      0                     0
ENSG00000134108.12                     0                     0
ENSG00000172137.18                     0                     0
ENSG00000276644.4                      0                     0
ENSG00000240423.1                      0                     0



最终是要把count文件中，行名的小数点去掉后就会出现一样的行名，把这些一样的行名的各行相加，小白不会写这个代码了55555

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：GSU SUB Count Names name

1. > a <- c("ENSG00000242268.2", "ENSG00000188026.12", "ENSG00000270112.3")
   
2. > gsub("\\..+", "", a)
   
3. [1] "ENSG00000242268" "ENSG00000188026" "ENSG00000270112"

复制代码

1. #先看个例子
   
2. gsub("\\.[[:alnum:]]+","","ENSG00000242268.2" )
   
3. #[1] "ENSG00000242268
   
4. 
   
5. newid <- gsub("\\.[[:alnum:]]+","",rownames(count))
   
6. #这里不能直接改行名，因为行名是唯一的，不能出现重复
   
7. 
   
8. #newid是一个新的向量，可以cbind到原数据框
   
9. count <- cbind(count, newid=newid)
   
10. #然后用dplyr包的group_by()和summarise()
    
11. library(dplyr)
    
12. newcount <- count %>%
    
13.                 group_by(newid) %>%
    
14.                 summarise(A6.CD8.P5.rep1.b2.PSO=sum(A6.CD8.P5.rep1.b2.PSO),
    
15.                                 A7.CD8.P5.rep1.b2.PSO=sum(A7.CD8.P5.rep1.b2.PSO))

复制代码