Data input and manipulation

data = read.csv("yuanhe_top100.csv")
data = data.frame(data)
library(reshape2)
library(ggplot2)
dat = melt(data) 
## Using Enzyme_Category as id variables

Plot!

# 自定义颜色梯度！
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile() + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + scale_fill_gradientn(colours = c("lightyellow1", "lightsalmon1", "coral2", "mediumpurple2", "mediumblue") ) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6 )) + theme(legend.key.size = unit(22, "pt")) + theme(axis.text.y = element_text(size=4))

# 让y轴的text在右边！并且使用预设的调色板！“palette = ”不可少
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile() + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + scale_fill_distiller(palette = "YlGnBu", direction = 1) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + scale_y_discrete(position = "right") + theme(legend.key.size = unit(22, "pt")) + theme(axis.text.y = element_text(size=4))

# 再换个颜色并且放大图例！
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile() + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + scale_fill_distiller(palette = "PuBuGn", direction = 1) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4)) 

# 再换个颜色！
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile() + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + scale_fill_gradientn(colours = c("slategray1", "skyblue", "royalblue1", "mediumorchid2", "maroon4" ) ) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4)) 

# 加白色边框！
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile(colour = "white") + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + scale_fill_gradientn(colours = c("slategray1", "skyblue", "royalblue1", "mediumorchid2", "maroon4" ) ) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4)) 

# 再换个颜色！
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile() + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + scale_fill_gradientn(colours = c("thistle1", "tan2", "tan4", "tomato4") ) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4)) 

# 加白色边框！
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile(colour = "white") + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + scale_fill_gradientn(colours = c("thistle1", "tan2", "tan4", "tomato4") ) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4))

还有相当好用的viridis调色板！强烈推荐！

library(viridis)
## Loading required package: viridisLite
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile(colour = "white") + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4)) + scale_fill_viridis(option="viridis", direction = -1) 

# 换一套
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile(colour = "white") + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4)) + scale_fill_viridis(option="rocket", direction = -1) 

# 换一套
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile(colour = "white") + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4)) + scale_fill_viridis(option="plasma", direction = -1) 

# 换一套
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile(colour = "white") + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4)) + scale_fill_viridis(option="mako", direction = -1)

# 换一套
ggplot(dat, aes(variable, reorder(Enzyme_Category,value), fill=value )) + geom_tile(colour = "white") + theme(axis.title = element_blank(), axis.ticks.length = unit(0.1, 'cm'), axis.text.y = element_text(colour = 'black', size = 7), axis.text.x = element_text(colour = 'black', size = 9)) + theme(axis.ticks = element_line(colour = "black", size = 0.3), legend.text = element_text(size = 7), legend.title = element_text(size = 10), panel.background = element_rect(colour = "black")) + theme(axis.text.x = element_text(angle = 30, hjust = 0.5, vjust = 0.6)) + theme(legend.key.size = unit(30, "pt"), legend.text = element_text(size = 12), legend.title = element_text(size = 14)) + theme(axis.text.y = element_text(size=4)) + scale_fill_viridis(option="cividis", direction = -1)