根据 geom_tile() 热图中的两列值对行重新排序

Posted 2023-02-16

【中文标题】根据 geom_tile() 热图中的两列值对行重新排序

【英文标题】：Reorder rows according to two column values in geom_tile() heatmap

【发布时间】：2021-04-17 08:43:13

【问题描述】：

library(tidyverse)

df <- data.frame(country = c("USA", "USA", "USA", 
                             "UK", "UK", "UK", 
                             "Japan", "Japan", "Japan", 
                             "Germany", "Germany", "Germany",
                             "Sweden","Sweden","Sweden",
                             "Norway","Norway","Norway"),
                 year = c(2000, 2001, 2002, 
                          2000, 2001, 2002, 
                          2000, 2001, 2002, 
                          2000, 2001, 2002, 
                          2000, 2001, 2002, 
                          2000, 2001, 2002),
                 value = c(0,1,1,
                           1,1,1,
                           0,0,0,
                           0,0,1,
                           0,1,1,
                           0,1,0))

ggplot(df, aes(year, country, fill = factor(value)))+
  geom_tile(color = "white", size = 1)+
  theme_minimal() 

这是我得到的数据、代码和原始图。 有没有一种方法可以同时按 value 值和 year 对国家/地区行重新排序？

我的目标：国家行将按years 中的第一个value=1 排序。

问题：因为我也希望图例成为因素，而不是连续的。这会导致排序问题。

理想顺序：

第一排：英国 第二行：瑞典或美国（因为它们的值相同） 第三行：瑞典或美国（因为它们的值相同） 第四行：挪威 第 5 行：德国 第 6 行：日本

【参考方案1】：

您可以使用 forcats 包中的 fct_relevel，如果这是您要查找的内容。

library(tidyverse)

library(forcats)
ro <- c('Japan', 'Germany', 'Norway', 'USA','Sweden', 'UK')

df %>%
  mutate(country= fct_relevel(country, ro)) %>% 
ggplot(aes(year, country, fill = factor(value))) +
  geom_tile(color = "white", size = 1)+
  theme_minimal()