R Pheatmap显示参数

我需要在我的

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)

---

test\u vals我没有找到一个直接的方法来解决您的任务，所以我可以建议您进行一次肮脏的攻击。您可以使用不同于Unicode的星号符号（U+2217星号运算符）。所以试试这个：

更新：可以将Unicode字符串传递到plotting函数中，而无需事先解析。因此，我更新了代码并删除了
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)

库（pheatmap）
你看过这篇文章的答案了吗？我有一个问题，在可视化的星号。热图报告的的确是一个空的中间框，而不是星号。您可以在R控制台
stri\u unescape\u unicode（“\u2217”）
中运行此代码吗∗"某些系统（Windows、MacOS）上的图形设备可能有问题。仅为了测试，您能否使用
cairo\u pdf
功能保存绘图？我尝试了
cairop\u pdf
和
CairoPDF
，但它仍然显示一个正方形而不是星号
# Heavy asterisk
#test_labels[test_labels<=10] <- "\u2731\u2731"
# Full width asterisk
#test_labels[test_labels<=10] <- "\uFF0A\uFF0A"