geom_tile热图不使用分面按自定义因子分组排序的实现方法

要实现不使用分面、按自定义group顺序排列样本，只需要调整sample因子的层级顺序即可，ggplot的分类轴顺序完全由因子层级决定，调整后所有样本仍在同一坐标系内，不影响后续转为环形热图。

操作步骤 #

1. 先统一每个样本对应的group归属（示例数据中sample2同时出现a、b两个group属于异常值，先做映射去重，实际使用时可以根据你的数据规则调整）
2. 设置group的自定义排序规则
3. 按照「先按自定义group顺序排序，同组内可自定义样本排序规则」的逻辑调整sample因子的层级
4. 正常绘图即可

修改后代码 #

library(tidyverse)

df <- tribble(
  ~sample, ~test, ~group, ~result,
  1, "alpha", "a", 1,
  1, "beta", "a", 1,
  1, "gamma", "a", 1,
  2, "alpha", "a", 0,
  2, "beta", "a", 1,
  2, "gamma", "b", 0,
  3, "alpha", "b", 0,
  3, "beta", "b", 1,
  3, "gamma", "b", 0,
  4, "alpha", "a", 1,
  4, "beta", "a", 1,
  4, "gamma", "a", 0,
  5, "alpha", "b", 0,
  5, "beta", "b", 0,
  5, "gamma", "b", 1,
  6, "alpha", "c", 0,
  6, "beta", "c", 0,
  6, "gamma", "c", 0,
)

# 自定义group排序规则
my_group_order <- c("c","b","a")

# 数据预处理
df_clean <- df %>%
  # 统一每个样本对应的group，避免单个样本对应多个group的异常
  left_join(
    distinct(df, sample, group) %>% 
      group_by(sample) %>% 
      slice(1) %>% # 取每个样本第一个group，可根据实际需求调整规则
      ungroup(),
    by = "sample",
    suffix = c("_raw", "")
  ) %>%
  # 设置group的自定义层级
  mutate(group = factor(group, levels = my_group_order)) %>%
  # 按group顺序设置sample的层级，保证X轴按group分组排列
  mutate(sample = fct_reorder(factor(sample), as.integer(group)))

# 绘图
df_clean %>%
  mutate(test = as.factor(test)) %>%
  ggplot(aes(sample, test, fill=result, color=group))+
  geom_tile()+
  theme_void()+
  coord_polar()

补充说明 #

如果需要同组内的样本按照其他规则排序，只需要调整fct_reorder的第二个参数即可，无需改动其他逻辑。

内容的提问来源于stack exchange，提问作者Boaz Palterer