数据可视化：使用ggplot画热图

首先加载ggplot2和reshape2，需要reshape2的原因是：通常情况下大家是想把一个矩阵可视化为一张热图，但是矩阵并不能被ggplot识别，所以我们需要reshape2包中的melt函数将矩阵转为ggplot可以识别的数据框:
# 加载ggplot2
library(ggplot2)
# 加载reshape2
library(reshape2)
然后生成模拟数据，一个10*10矩阵:
# 生成模拟数据
simu_data <- matrix(rnorm(100, 0, 1), nrow = 10, ncol = 10)
将矩阵变成ggplot可以识别的形式：
# 将矩阵变成ggplot可以识别的形式
simu_data <- melt(simu_data)
使用默认参数画图，就得到了一张最简单的热图：
# 画图
p <- ggplot(data = simu_data) + geom_tile(aes(x = Var1, y = Var2, fill = value))
                
                
但是这张热图还很简陋，我们再完善一下，首先去掉背景的灰色方块以及边框，其次将行名和列名修改为我们想要的名字：
# 画图
p <- ggplot(data = simu_data) +
    geom_tile(aes(x = Var1, y = Var2, fill = value)) +
    theme_classic() + #去掉灰快
    theme(axis.ticks = element_blank(),
          axis.line = element_blank()) + #去掉边框
    xlab('row name') +
    ylab('column name') #更改行名和列名
                
                
接下来如果我们想要修改热图中每一格对应的行名和列名，则：
p <- ggplot(data = simu_data) +
    geom_tile(aes(x = Var1, y = Var2, fill = value)) +
    theme_classic() + #去掉灰快
    theme(axis.ticks = element_blank(),
          axis.line = element_blank()) + #去掉边框
    xlab('row name') +
    ylab('column name') + #更改行名和列名
    scale_x_discrete(labels = 1:10, breaks = 1:10) +
    scale_y_discrete(labels = 1:10, breaks = 1:10) #修改行和列
                
                
最后，如果我们想修改图的颜色和图例的名字，例如将图变成蓝白红渐变，0为白色，则：
# 画图
p <- ggplot(data = simu_data) +
    geom_tile(aes(x = Var1, y = Var2, fill = value)) +
    theme_classic() + #去掉灰快
    theme(axis.ticks = element_blank(),
          axis.line = element_blank()) + #去掉边框
    xlab('row name') +
    ylab('column name') + #更改行名和列名
    scale_x_discrete(labels = 1:10, breaks = 1:10) +
    scale_y_discrete(labels = 1:10, breaks = 1:10) + #修改行和列
    scale_fill_gradient2('legend name',
                         low = 'blue', high = 'red', mid = 'white') #修改图例名字以及图中颜色
则最终我们得到了这张图：