2020-08-17 学习心得1

library(tidyverse)
AllScoreData=read_tsv("AllScoreData.txt")
AllScoreData <- AllScoreData %>% separate(ID, into = c("ID", "b"),sep = 12) %>% select(-b) 
ClinicalData=read_tsv("ClinicalData.txt")
ClinicalData <- ClinicalData %>% rename(ID = Id)
SameSample <- inner_join(AllScoreData, ClinicalData, by="ID")