Pheatmap display_numbers参数

Question

我需要在我的pheatmp中使用和显示有意义的星形，我已经利用了下面的方法。正如您所看到的，图中报告的星号跨越了单元格边界。有没有一种方法可以把它放在细胞的中心？

test_vals <- matrix(rnorm(20), 5, 4)
test_labels <- matrix(1:20, 5, 4) 
test_labels[test_labels<=10] <- "**"
pheatmap(test_vals, display_numbers = test_labels, fontsize_number=40, cellheight=20)

Answer 1

我没有找到一个直接的方法来解决你的任务，所以我可以建议一个小小的下流的方法。您可以使用与Unicode不同的星号符号(U+2217星号运算符)。所以试试这个：

更新:可以将Unicode字符串传递到绘图函数中，而无需之前的解析。因此，我更新了代码并删除了对stringi库的要求。

library(pheatmap)

test_vals <- matrix(rnorm(20), 5, 4)
test_labels <- matrix(1:20, 5, 4) 
test_labels[test_labels <= 10] <- "\u2217\u2217"
pheatmap(test_vals, display_numbers = test_labels, fontsize_number=20, cellheight=20)

结果如下：

​

此外，您还可以尝试其他变体。接下来的两个是常见的星号，稍大一些。

# Heavy asterisk
#test_labels[test_labels<=10] <- "\u2731\u2731"
# Full width asterisk
#test_labels[test_labels<=10] <- "\uFF0A\uFF0A"