如何用R提取所有中括号内的内容？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我的一个data中的title列是这样的
[1] "pat 10 tumor [HDV_10A_S33]"     "pat 10 non-tumor [HDV_10B_S37]"
[3] "pat 11 tumor [HDV_11A_S34]"     "pat 11 non-tumor [HDV_11B_S6]"
[5] "pat 12 tumor [HDV_12A_S54]"     "pat 12 non-tumor [HDV_12B_S46]"
请各位大神指导下如何提取各元素中的[]内的内容如HDV_10A_S33等组成一个新的title？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：如何用 Title 如何提取 Data Pat

stringr::str_extract(x, "HDV.*\\d")

1. library(stringr)
   
2. library(dplyr)
   
3. 
   
4. kk <- data.frame(title_name=c("pat 10 tumor [HDV_10A_S33]",
   
5.                               "pat 10 non-tumor [HDV_10B_S37]",
   
6.                               "pat 11 tumor [HDV_11A_S34]",
   
7.                               "pat 11 non-tumor [HDV_11B_S6]",
   
8.                               "pat 12 tumor [HDV_12A_S54]",
   
9.                               "pat 12 non-tumor [HDV_12B_S46]"))
   
10. 
    
11. get_content <- function(x){
    
12.   str_sub(x,str_locate(x,'\\[')[1]+1,-2L)
    
13. }
    
14. k1 <- kk %>% mutate(title_new=lapply(title_name,get_content))

复制代码

1. library(stringr)
   
2. library(dplyr)
   
3. 
   
4. kk <- data.frame(title_name=c("pat 10 tumor [HDV_10A_S33]",
   
5.                               "pat 10 non-tumor [HDV_10B_S37]",
   
6.                               "pat 11 tumor [HDV_11A_S34]",
   
7.                               "pat 11 non-tumor [HDV_11B_S6]",
   
8.                               "pat 12 tumor [HDV_12A_S54]",
   
9.                               "pat 12 non-tumor [HDV_12B_S46]"))
   
10. 
    
11. k2 <- kk %>% mutate(title_new=str_extract(title_name, "HDV.*\\d"))

复制代码