字符串拆分
原始数据
![](https://img.haomeiwen.com/i21987773/1cd48deedc0ffd86.jpg)
第二列只想保留第一个
解决方法(感谢我师妹)
CCLE_data <- data.table::fread("CCLE_RNAseq_rsem_genes_tpm_20180929.txt.gz",data.table =F )
transcript_id <- CCLE_data$transcript_ids
library(tidyverse)
transcript_id <- strsplit(transcript_id, split=',', fixed = TRUE, perl = FALSE, useBytes = FALSE)
transcript_id <- sapply(transcript_id,"[",1)
CCLE_data$transcript_ids <- transcript_id
感谢花花老师和群里的小伙伴
还有substring
、separate
![](https://img.haomeiwen.com/i21987773/5251a769bd356c45.jpg)
![](https://img.haomeiwen.com/i21987773/c1bb60aaf98bbeb7.jpg)
网友评论