exp = read.csv('MicroarrayExpression.csv',header = T,sep = ',',check.names=F)
colnames(phe)[1] = 'id' #数据框第一列添加名字id
#数据框中的列名有重复，下面对有重复的列名，后加添加.1
nn = names(exp)
names(exp) = make.names(nn,unique = T)
names(exp)
exp1=dplyr::filter(phe, grepl("CD38", id) | grepl("GPNMB", id) | grepl('GAK',id)|grepl('TMEM175',id)|grepl('RAB7L1',id)|grepl('EFNA3',id)|grepl('TTC19',id)|grepl('HIP1R',id)|grepl('STX4',id)|grepl('HLA-DRB5',id)|grepl('VKORC1',id)) #一次性提取多行
write.csv(exp1,file = '2.csv',row.names = F,col.names = T)
