R语言做heatmap报错

library(pheatmap)
dat = read.delim(file.choose(), head=T, row.names = 1) 
anno_col = read.delim(file.choose(), head=T, row.names = 1) 

Gender=c('deeppink1','cyan1')  
names(Gender) = c("female", "male")

T=c('forestgreen','firebrick1','goldenrod1','dodgerblue1')  
names(T) = c("T1", "T2", "T3", "T4")

N=c('lightgreen','coral1','gold1','lightpink1')  
names(N) = c("N0", "N1", "N2", "N3" )

M=c('darkorange','darkolivegreen2') 
names(M) = c("M0", "M1" )

Stage=c('palegreen3','royalblue1','gold2','firebrick1')  
names(Stage) = c("I", "II", "III", "IV") 

EGFR_mut=c('goldenrod1'