用R语言写一个热图函数

以下是一个简单的热图函数的R代码：

heatmap_func <- function(data, colpalette = rev(colorRampPalette(c("blue", "white", "red"))), show_legend = TRUE) {
  # 绘制热图
  heatmap(data, col = colpalette, scale = "none", margins = c(5, 10))

  # 添加注释
  if (show_legend) {
    legend("topright", legend = c("Low", "High"), fill = colpalette(2), bty = "n")
  }
}

这个函数接受一个数据矩阵作为输入，并使用默认的蓝色到白色到红色的颜色渐变来显示矩阵中的值。您可以通过设置`colpalette`参数来更改颜色渐变。如果`show_legend`参数设置为TRUE，则会在右上角添加一个图例。