-
Notifications
You must be signed in to change notification settings - Fork 5
/
Fig.3a-coregene_heatmap.R
117 lines (107 loc) · 4.12 KB
/
Fig.3a-coregene_heatmap.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
library(pheatmap)
data<- read.table("E:/我的坚果云/Project/Mariana586/3.Annotation/0.Kegg/Prepare/carbon.txt",head = T,row.names=1,sep="\t")
df <- t(data[,0:35])
df
pheatmap(df,
cluster_rows = F,
cluster_cols = F,
gaps_row = 5,
# gaps_col = c(3,5,8,13,16,19,22),
show_rownames = TRUE,
border_color = 'Black',
cellwidth = 10,cellheight= 10,
fontsize_col=8,fontsize_row=8,
color = c("white", "#84C1FF","#005AB5"),
breaks = c(0,0.2, 0.499, 1), # distances 0 to 3 are red, 3 to 9 black
main = 'Heatmap')
data<- read.table("E:/我的坚果云/Project/Mariana586/3.Annotation/0.Kegg/Prepare/nitrogen.txt",head = T,row.names=1,sep="\t")
df <- t(data[,0:35])
df
pheatmap(df,
cluster_rows = F,
cluster_cols = F,
gaps_row = 5,
# gaps_col = c(4,7,15),
show_rownames = TRUE,
border_color = 'Black',
cellwidth = 10,cellheight= 10,
fontsize_col=8,fontsize_row=8,
color = c("white","#CEFFCE", "#00DB00"),
breaks = c(0,0.2, 0.499, 1), # distances 0 to 3 are red, 3 to 9 black
main = 'Heatmap')
data<- read.table("E:/我的坚果云/Project/Mariana586/3.Annotation/0.Kegg/Prepare/sulfur.txt",head = T,row.names=1,sep="\t")
df <- t(data[,0:35])
df
pheatmap(df,
cluster_rows = F,
cluster_cols = F,
gaps_row = 5,
# gaps_col = c(5,7),
show_rownames = TRUE,
border_color = 'Black',
cellwidth = 10,cellheight= 10,
fontsize_col=8,fontsize_row=8,
color = c("white", "#FFED97","#D9B300"),
breaks = c(0,0.2, 0.499, 1), # distances 0 to 3 are red, 3 to 9 black
main = 'Heatmap')
data<- read.table("E:/我的坚果云/Project/Mariana586/3.Annotation/0.Kegg/Prepare/benzoate.txt",head = T,row.names=1,sep="\t")
data
df <- t(data[,0:35])
df
pheatmap(df,
cluster_rows = F,
cluster_cols = F,
gaps_row = 5,
# gaps_col = c(3,5,11,13,15),
border_color = 'Black',
show_rownames = TRUE,
cellwidth = 10,cellheight= 10,
fontsize_col=8,fontsize_row=8,
color = c("white","#ffaad5", "#D9006C"),
breaks = c(0,0.2, 0.499, 1),
main = 'Heatmap')
data<- read.table("E:/我的坚果云/Project/Mariana586/3.Annotation/0.Kegg/Prepare/alkane.txt",head = T,row.names=1,sep="\t")
df <- t(data[,0:35])
df
pheatmap(df,
cluster_rows = F,
cluster_cols = F,
gaps_row = 5,
# gaps_col = c(3,5,8,11,14,17),
show_rownames = TRUE,
border_color = 'Black',
cellwidth = 10,cellheight= 10,
fontsize_col=8,fontsize_row=8,
color = c("white","#FF8F59", "#BB3D00"),
breaks = c(0,0.2, 0.499, 1), # distances 0 to 3 are red, 3 to 9 black
main = 'Heatmap')
data<- read.table("E:/我的坚果云/Project/Mariana586/3.Annotation/0.Kegg/Prepare/arsenite.txt",head = T,row.names=1,sep="\t")
df <- t(data[,0:35])
df
pheatmap(df,
cluster_rows = F,
cluster_cols = F,
gaps_row = 5,
# gaps_col = c(3,5,8,11,14,17),
show_rownames = TRUE,
border_color = 'Black',
cellwidth = 10,cellheight= 10,
fontsize_col=8,fontsize_row=8,
color = c("white","#d3a4ff", "#6F00D2"),
breaks = c(0,0.2, 0.499, 1), # distances 0 to 3 are red, 3 to 9 black
main = 'Heatmap')
data<- read.table("E:/我的坚果云/Project/Mariana586/3.Annotation/0.Kegg/Prepare/selenium.txt",head = T,row.names=1,sep="\t")
df <- t(data[,0:35])
df
pheatmap(df,
cluster_rows = F,
cluster_cols = F,
gaps_row = 5,
# gaps_col = c(3,5,8,11,14,17),
show_rownames = TRUE,
border_color = 'Black',
cellwidth = 10,cellheight= 10,
fontsize_col=8,fontsize_row=8,
color = c("white","#A3D1D1", "#3D7878"),
breaks = c(0,0.2, 0.499, 1), # distances 0 to 3 are red, 3 to 9 black
main = 'Heatmap')