5, "npc"), #柱状图 right_annotation = rowAnnotation( bar = anno_barplot(axis_param = list(side="top"),width = unit(30,"cm"),data.matrix(data1),gp=gpar(fill=rainbow(lgd_col_len))) ), # 添加文字注释: cell_fun = function(j, i, x, y, width, height, fill) { if (!is.na...
(0.5,"npc"),#柱状图right_annotation=rowAnnotation(bar=anno_barplot(axis_param=list(side="top"),width=unit(30,"cm"),data.matrix(data1),gp=gpar(fill=rainbow(lgd_col_len))),# 添加文字注释:cell_fun=function(j,i,x,y,width,height,fill){if(!is.na(cell1[i,j])){grid.text(sprintf("...