##### Heatmap - ggcorrplot
library(ggcorrplot)

ggcorrplot(corr = matrix_data,
           method = "square",
           title = "",
           show.legend = TRUE,
           legend.title = FALSE,
           show.diag = TRUE,
           outline.color = NA,
           colors = continuous_wes_pal,
           hc.order = FALSE,
           lab = FALSE
           ) +
  scale_fill_gradientn(colours = continuous_wes_pal, 
                       breaks = c(0, 1),
                       limits = c(0, 1),
                       guide = "colourbar") +
  guides(fill = guide_colourbar(barwidth = 15, 
                                barheight = 1,
                                ticks = FALSE,
                                title = "",
                                label.hjust = 1)) +
  my_theme() +
  theme(
    axis.title = element_blank(),
    axis.text.x = element_text(angle = 270),
    axis.ticks = element_blank()
  )

##### corrrr - network_plot
library(corrr)

network_plot(matrix_data,
             legend = TRUE,
             colours = continuous_wes_pal,
             repel = TRUE,
             curved = TRUE,
             min_cor = 0.1) +
  scale_fill_gradientn(colours = continuous_wes_pal, 
                       breaks = c(0, 1),
                       limits = c(0, 1),
                       guide = "colourbar") +
  guides(fill = guide_colourbar(barwidth = 15, 
                                barheight = 1,
                                ticks = FALSE,
                                title = "",
                                label.hjust = 1)) +
  my_theme() +
  theme(
    axis.text = element_blank(),
    axis.ticks = element_blank(),
    axis.title = element_blank()
  )

LS0tCnRpdGxlOiAiSGVhdG1hcHMiCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiBmYWxzZQogICAgbnVtYmVyX3NlY3Rpb25zOiBmYWxzZQogICAgZGZfcHJpbnQ6IHBhZ2VkCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlCiAgICBoaWdobGlnaHRlcjogbnVsbAotLS0KCmBgYHtyIHNldHVwLCBldmFsPVRSVUUsIGluY2x1ZGU9RkFMU0UsIGVjaG89RkFMU0UsIGVycm9yPUZBTFNFLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFLCBjYWNoZT1UUlVFLCBmaWcuYWxpZ249J2NlbnRlcicsIGNvbW1lbnQ9IiJ9CmNob29zZUNSQU5taXJyb3IoZ3JhcGhpY3M9RkFMU0UsIGluZD0xMzMpCnNvdXJjZSgic291cmNlL3Bsb3RzLW92ZXJ2aWV3LlIiKQpgYGAKX19fCgpQYWdlIGxhc3QgdXBkYXRlZDogYHIgZm9ybWF0KFN5cy50aW1lKCksICclZCAlQiwgJVknKWAKClwgIAoKIyBFeGFtcGxlcyB7I2hlYXRtYXAgLnRhYnNldH0KCiMjIGdnY29ycnBsb3QgeyNnZ2NvcnJwbG90fQpgYGB7ciBnZ2NvcnJwbG90LCBldmFsPVRSVUUsIGluY2x1ZGU9VFJVRSwgZWNobz1UUlVFLCBlcnJvcj1GQUxTRSwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRSwgY2FjaGU9VFJVRSwgZmlnLmFsaWduPSdjZW50ZXInLCBjb21tZW50PSIifQojIyMjIyBIZWF0bWFwIC0gZ2djb3JycGxvdApsaWJyYXJ5KGdnY29ycnBsb3QpCgpnZ2NvcnJwbG90KGNvcnIgPSBtYXRyaXhfZGF0YSwKICAgICAgICAgICBtZXRob2QgPSAic3F1YXJlIiwKICAgICAgICAgICB0aXRsZSA9ICIiLAogICAgICAgICAgIHNob3cubGVnZW5kID0gVFJVRSwKICAgICAgICAgICBsZWdlbmQudGl0bGUgPSBGQUxTRSwKICAgICAgICAgICBzaG93LmRpYWcgPSBUUlVFLAogICAgICAgICAgIG91dGxpbmUuY29sb3IgPSBOQSwKICAgICAgICAgICBjb2xvcnMgPSBjb250aW51b3VzX3dlc19wYWwsCiAgICAgICAgICAgaGMub3JkZXIgPSBGQUxTRSwKICAgICAgICAgICBsYWIgPSBGQUxTRQogICAgICAgICAgICkgKwogIHNjYWxlX2ZpbGxfZ3JhZGllbnRuKGNvbG91cnMgPSBjb250aW51b3VzX3dlc19wYWwsIAogICAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IGMoMCwgMSksCiAgICAgICAgICAgICAgICAgICAgICAgbGltaXRzID0gYygwLCAxKSwKICAgICAgICAgICAgICAgICAgICAgICBndWlkZSA9ICJjb2xvdXJiYXIiKSArCiAgZ3VpZGVzKGZpbGwgPSBndWlkZV9jb2xvdXJiYXIoYmFyd2lkdGggPSAxNSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYmFyaGVpZ2h0ID0gMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0aWNrcyA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWwuaGp1c3QgPSAxKSkgKwogIG15X3RoZW1lKCkgKwogIHRoZW1lKAogICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfYmxhbmsoKSwKICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gMjcwKSwKICAgIGF4aXMudGlja3MgPSBlbGVtZW50X2JsYW5rKCkKICApCmBgYAoKIyMgY29ycnIgLSBuZXR3b3JrX3Bsb3QKYGBge3IgY29ycnIsIGV2YWw9VFJVRSwgaW5jbHVkZT1UUlVFLCBlY2hvPVRSVUUsIGVycm9yPUZBTFNFLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFLCBjYWNoZT1UUlVFLCBmaWcuYWxpZ249J2NlbnRlcicsIGNvbW1lbnQ9IiJ9CiMjIyMjIGNvcnJyciAtIG5ldHdvcmtfcGxvdApsaWJyYXJ5KGNvcnJyKQoKbmV0d29ya19wbG90KG1hdHJpeF9kYXRhLAogICAgICAgICAgICAgbGVnZW5kID0gVFJVRSwKICAgICAgICAgICAgIGNvbG91cnMgPSBjb250aW51b3VzX3dlc19wYWwsCiAgICAgICAgICAgICByZXBlbCA9IFRSVUUsCiAgICAgICAgICAgICBjdXJ2ZWQgPSBUUlVFLAogICAgICAgICAgICAgbWluX2NvciA9IDAuMSkgKwogIHNjYWxlX2ZpbGxfZ3JhZGllbnRuKGNvbG91cnMgPSBjb250aW51b3VzX3dlc19wYWwsIAogICAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IGMoMCwgMSksCiAgICAgICAgICAgICAgICAgICAgICAgbGltaXRzID0gYygwLCAxKSwKICAgICAgICAgICAgICAgICAgICAgICBndWlkZSA9ICJjb2xvdXJiYXIiKSArCiAgZ3VpZGVzKGZpbGwgPSBndWlkZV9jb2xvdXJiYXIoYmFyd2lkdGggPSAxNSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYmFyaGVpZ2h0ID0gMSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0aWNrcyA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWwuaGp1c3QgPSAxKSkgKwogIG15X3RoZW1lKCkgKwogIHRoZW1lKAogICAgYXhpcy50ZXh0ID0gZWxlbWVudF9ibGFuaygpLAogICAgYXhpcy50aWNrcyA9IGVsZW1lbnRfYmxhbmsoKSwKICAgIGF4aXMudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkKICApCgoKYGBgCg==