ggplot2绘制CNS级热图

R语言数据分析指南

发布于 2022-09-21 15:07:41

3760

发布于 2022-09-21 15:07:41

❝本节来介绍如何使用分面来绘制热图并填充特殊字符，下面通过一个小例子来进行展示；

加载R包

library(tidyverse)
library(ggtext)
library(ggforce)

数据清洗

❝此处使用case_when来根据数值大小进行特殊字符的转换 ❞

df <- read_tsv("data.xls") %>% 
  mutate(
    CL_evolution_sign = case_when(
      CL_evolution > 0 ~ "↑",
      CL_evolution < 0 ~ "↓",
      TRUE ~ "="),
    PR_evolution_sign = case_when(
      PR_evolution > 0 ~ "↑",
      PR_evolution < 0 ~ "↓",
      TRUE ~ "="))

数据可视化

df %>% ggplot() + 
  geom_circle(aes( x0= 1, y0 = 1, r = .5, fill = 8-CL), size = .125) +
  geom_circle(aes( x0= 2, y0 = 1, r = .5, fill = 8-PR), size = .125) +
  geom_text(aes(x = 1, y = 1, label = CL_evolution_sign), color = "#111111", size = 3.5) + 
  geom_text(aes(x = 2, y = 1, label = PR_evolution_sign), color = "#111111", size = 3.5)+
  facet_grid(rows = vars(country), cols =vars(year), switch = "y") + # 设置分面
  coord_equal() +  
  colorspace::scale_fill_continuous_diverging(name=NULL,palette = "Red-Green", mid = 4,
  guide = guide_colourbar(barwidth =unit(6, "cm"),barheight = unit(.75, "cm"),
  label.theme = element_text(size = 15)),
  breaks = c(2,6),labels = c("← Bad","Good →")) +  # 图例调整
  theme_minimal() +
  theme(
    text = element_text(),
    strip.placement = "outside", 
    strip.text.y.left = element_text(face = "bold", color = "#111111",size = 12,angle = 0, hjust = 1),
    strip.text.x =  element_text(face = "bold", color = "#111111", size = 12),
    panel.spacing.x = unit(.25, "cm"),
    axis.text = element_blank(),
    axis.title = element_blank(),
    panel.grid = element_blank(),
    legend.direction = "horizontal", 
    legend.position = "top")