R synergy matrix heatmap

画热图

library(pheatmap)
#test1 <-read.csv("C:/Users/Administrator/Desktop/YsJ/sz/zzwkP1.csv",header=TRUE)
#test1 <-read.csv("D:\\12345.csv",header=TRUE,row.names = 1)


test1 <-read.table("./HighContent-PE/20230320/favi_breq_gfp_count.txt",row.names = 1,header = T)
test1 <-read.table("./HighContent-PE/20230320/favi_breq_synergy.txt",row.names = 1,header = T)
test1 <-read.table("./HighContent-PE/20230320/favi_bay_gfp_count_inhibit.txt",row.names = 1,header = T)
test1 <-read.table("./HighContent-PE/20230320/favi_bay_synergy.txt",row.names = 1,header = T)
test1 <-read.table("./HighContent-PE/20230320/breq-fluc.txt",row.names = 1,header = T)

test1 <-read.table("./HighContent-PE/20230407FLuc/W386_4.6_Breq.txt",row.names = 1,header = T)
test1 <-read.table("./HighContent-PE/20230407FLuc/W386_4.6_BAY.txt",row.names = 1,header = T)
test1 <-read.table("D:\\Coding\\R_gzlab_docu\\HighContent-PE\\20230407FLuc\\W386_4.6_BAY.txt",row.names = 1,header = T)
test1 <-read.table("D:\\Coding\\R_gzlab_docu\\HighContent-PE\\20230407FLuc\\W386_4.6_Breq.txt",row.names = 1,header = T)
test1 <-read.table("D:\\Coding\\R_gzlab_docu\\HighContent-PE\\20230412FLuc_W384/Riba_CPDA_synergy.txt",row.names = 1,header = T)
test1 <- scale(test1)

pheatmap(test1, cluster_rows = FALSE,  cluster_cols = F,
         border_color = "white",display_numbers = T,
         fontsize = 25,
         #cellwidth = 5, cellheight = 1,
         #color = colorRampPalette(colors = c("blue","pink","red")(100))
         color = colorRampPalette(colors = c("blue","white","red"))(100)
         )