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"