r - 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 ASTERISK OPERATOR)。所以试试这个:

更新:可以将 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"