关于R语言

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

[color=rgba(0, 0, 0, 0.85)]各位 我想将第一列markername第二个冒号前的东西提出来或者第二个冒号后的删掉 怎么写代码呢

[color=rgba(0, 0, 0, 0.85)]例如：9:76389592:C_T 变为9:76389592

[color=rgba(0, 0, 0, 0.85)]谢谢！🙏

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 marker marke name Mark

尝试了
data$Chr<-strsplit(data$MarkerName,":")[[1]][2]
data$pos<-strsplit(data$MarkerName,":")[[1]][2]
data$SNP<- paste(data$Chr,data$pos,sep=":")
得到的新一列 全是提取出的第一行的数据

方法和函数有很多

1. x <- "9:76389592:C_T"
   
2. # 方法1：提取第二个冒号前的字符
   
3. positions <- unlist(gregexpr(":", x))[2]
   
4. new.x <- substr(x, 1, positions-1)
   
5. 
   
6. # or
   
7. library(stringr)
   
8. str_extract(x, "\\d+:\\d+")
   
9. 
   
10. # 方法2：去掉第二个冒号后的字符
    
11. str_replace(x, ":\\D+", "")

复制代码

乐天天12300 发表于 2021-1-31 11:43
方法和函数有很多

1、打开文件 setwd("/Users/herenke/Downloads")
2、读取文件 data <- read.table("Exposure.txt",sep="\t",header=T,check.names=F)
3、x <- "9:76389592:C_T"
4、positions <- unlist(gregexpr(":", x))[2]
5、new.x <- substr(x, 1, positions-1)
请问就这样五行就行了吗？我试了好像没有用呀