批量替换

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

[size=0.83em]1 小时前 上传
下载附件 [size=0.83em](4.13 KB)



如图，每次在文本中（kegg$geneID）识别到ENTREZID中的数字，就将它替换成对应行SYMBOL的英文字母。请问怎么实现呀？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：symbol size 英文字母 MBO Egg

你试试看用stringr的str_replace_all行不行

1. sym_id <- data.frame(sym = LETTERS[1:9], ids = as.character(1:9))
   
2. gID <- as.character(sample(9, 15, replace = TRUE))
   
3. 
   
4. library(stringr)
   
5. pattern <- setNames(sym_id$sym, sym_id$ids)
   
6. gID
   
7. str_replace_all(gID, pattern)

复制代码