TCGA_不同gleason评分的 gene 表达

library("stringr")
library("dplyr")
library("ggplot2")
library("readr")

加载数据（将第1列转为行名）：

if(T){
  dataFilt=read_csv(file = 'dataFilt.csv') 
  dataFilt=as.data.frame(dataFilt) 
  rownames(dataFilt)=dataFilt[,1] 
  dataFilt=dataFilt[,-1]
  dataFilt=log(dataFilt+1) #取对数
} #测序数据

if(T){
  data_cl=read_csv(file = 'data_cl_index.csv') 
  data_cl=as.data.frame(data_cl) 
  rownames(data_cl)=data_cl[,1] 
  data_cl=data_cl[,-1]
} #临床数据

一、合并临床和测序数据

1 更改dataFilt使其能与data_cl匹配

dataFilt_t=t(dataFilt) #转置

dataFilt_t=as.data.frame(dataFilt_t)
dataFilt_t <- add_rownames(dataFilt_t, "Sample") #add_rownames()使row.names变为第一列（data.frame）
colnames(data_cl)[1]="Sample" 

dataFilt_t$Sample=str_sub(dataFilt_t$Sample,1,12) #取病人编号
</