我ggcorrplot用來繪制大型資料集的相關矩陣。問題是很難看到軸文本的標簽（在下面的示例中，例如，sample1）。與每個標簽相關聯，我有另一個標簽（在下面的示例中，例如normalfor sample1）。是否可以在樣本標簽的每個級??別周圍用括號或框來注釋軸文本標簽？
cor.vals <- cor(matrix(rnorm(100), nrow = 10))
colnames(cor.vals) <- paste0("sample", 1:10)
rownames(cor.vals) <- colnames(cor.vals)
ggcorrplot::ggcorrplot(cor.vals)
labels.samples <- c(rep("normal", 5), rep("drug", 5))
對于 x 軸也是如此。我的資料更大，類別更多，因此手動添加它們并不是一個真正的選擇。
uj5u.com熱心網友回復：
您想要的確切外觀無法直接在ggplot. 您可以通過手動添加形狀來做到這一點grid，但我注意到您覺得這不是一個真正的選擇。
使用構面可以實作一種邏輯上等效和相似的外觀，盡管這需要擺弄以下輸出ggcorrplot：
p <- ggcorrplot::ggcorrplot(cor.vals)
p$data$facets_y <- factor(rep(labels.samples, length = nrow(p$data)), c("normal", "drug"))
p$data$facets_x <- rep(labels.samples, each = length(labels.samples))
p$coordinates <- coord_cartesian()
p facet_grid(facets_x~facets_y, scales = "free", switch = "both")
theme(panel.spacing = unit(-0.02, "npc"),
axis.ticks.y.left = element_blank(),
strip.background = element_rect(color = c("black")))
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/440274.html
標籤：r ggplot2 ggcorrplot
上一篇：如何使PDF輸出和代碼輸出在Rmarkdown中看起來正確
下一篇：在ggplot中給出特定的中斷