如题， 右侧注释太长，想把它分成两列，但是找不到代码，求助各位大佬！！！

这是我的图：



而这是我理想的图


求助各位大佬，我的程序是：
rt=read.table("riskCliExp.txt",sep="\t",header=T,row.names=1,check.names=F)  
rt=t(rt)
outpdf="heatmap.pdf"

library(pheatmap)
Type=read.table("riskCliGroup.sig.txt",sep="\t",header=T,row.names=1,check.names=F)
Type=Type[order(Type$Risk),]
rt=rt[,row.names(Type)]

pdf(outpdf,height=7.7,width=10)
pheatmap(rt, annotation=Type,
         color = colorRampPalette(c("blue", "white", "red"))(50),
         cluster_cols =F,
         fontsize=8.5,
         fontsize_row=8,
         scale="row",
         show_colnames=F,
         fontsize_col=3)
dev.off()



求助哇！！！，感激不尽！