主页 / coding / 问题 / 77423629
Accepted
José
Asked: 2023-11-05 04:01:05 +0800 CST

如何在 R 中的 ggraph 图中添加标题并修改调色板

  • 772

我正在使用包see和ggraphinR来绘制相关图，但我无法添加绘图的标题，也无法更改调色板。提供的MWE如下：

library(tidyverse) # for `%>%` and probably others
library(see) # for plotting
library(ggraph) # needs to be loaded
library(correlation) # obviously for `correlation`, which I noticed was installed as a dependency of pkg:see but apparently not loaded with it.

mtcars %>% 
correlation(partial = TRUE) %>% 
plot()

2 个回答

  1. Best Answer

    要更改边缘颜色比例，您需要使用scale_edge_color*ggraph 中的函数之一：

    library(correlation)
library(ggraph)
library(ggplot2)

p <- plot(correlation(mtcars, partial = TRUE)) +
  scale_edge_color_gradientn(colours = c("red3", "gray90", "green4")) +
  ggtitle("Partial correlation of mtcars dataset") +
  coord_equal(clip = "off")

p

    在此输入图像描述

    从绘图函数中更改固定美学参数的选项似乎有限，但您可以更改生成的 ggplot 对象的图层。您还可以像往常一样在 ggplot 中更改主题元素：

    p$layers[[2]]$aes_params$colour <- "navy"
p$layers[[3]]$aes_params$size <- 6

p + theme(plot.background = element_rect(fill = "skyblue"),
          plot.title = element_text(hjust = 0.5))

    在此输入图像描述

    • 2

  2. 希望这能让你接近你想要的，何塞：

    cor_matrix <- cor(mtcars, method='pearson',use='complete.obs')
ggcorrplot(cor_matrix, method = c("square"), type = c("full"), 
           ggtheme = ggplot2::theme_minimal, 
           title = "Practice Title", show.legend = TRUE, 
           legend.title = "Corr", 
           show.diag = FALSE, outline.color = "gray", hc.order = TRUE, 
           lab = TRUE, 
           lab_col = "black", 
           lab_size = 2, tl.cex = 10, tl.col = "black", tl.srt = 45, digits = 2) + 
  theme(
   legend.key.width = unit(.6, "cm"),   #to resize legend
   legend.key.height = unit(1.4, "cm"),
  )
    • 1

相关问题