Question

我是帕多瓦统计硕士学位的学生。我正在飞镖模型上完成我的thesi。我有一个速度问题，谁可以帮助我？使用此套装，您可以估算飞镖投掷的方差，以最大化您的分数！

>library(darts)
>e = simpleExpScores(s=25^2)
>drawHeatmap(e)

热图很棒！但我没有传说！你知道把图例放在热图附近吗？！

这是我的问题，如果有人有5分钟可以帮助我。

谢谢，马可

Answer 1

  library(RColorBrewer)
  library(gplots)
  myCol <- c("red", "yellow", "white")
  ## Defining breaks for the color scale
  myBreaks <- c(0, .5, 1, 1.5 )

  hm <- heatmap.2(e, scale="none", Rowv=NA, Colv=NA,
                  col = myCol, ## using your colors
                  breaks = myBreaks, ## using your breaks
                  dendrogram = "none",  ## to suppress warnings
                margins=c(5,5), cexRow=0.5, cexCol=1.0, key=TRUE, keysize=1.5,
                trace="none")

只根据需要调整休息

R包上的热图

1 个答案: