在ggplot中分组标签

Question

以下是我尝试使用ggplot2创建热图。

#DATA 
set.seed(42) 
df1 = data.frame(ID = paste0("I", 1:40), 
       group = rep(c("Dry", "Rain"), each = 20), 
       subgroup = rep(paste0("S", 1:4), each = 10), 
       setNames(data.frame(replicate(8, rnorm(40))), letters[1:8])) 
library(reshape2) 
df1 = melt(df1, id.vars = c("ID", "group", "subgroup")) 
df1 = df1[order(df1$group, df1$subgroup),] 
df1$fact = paste(df1$subgroup, df1$ID) 
df1$fact = factor(df1$fact, levels = unique(df1$fact)) 

#PLOT 
library(ggplot2) 
ggplot(df1, aes(x = variable, y = fact, fill = value)) + 
    geom_tile() + 
    scale_y_discrete(labels = df1$subgroup[!duplicated(df1$ID)]) 

情节正是我想除了一个事实，那是什么标签S1，S2，S3，并且S4反复各做10次。有没有办法只显示它们一次，然后在S1,S2,S3和S4之间加上某种中断。

我也很好奇，如果有办法把group到subgroup左侧中的情节作为辅助y轴但这是可选的。

Answer 1

您可以使用facet_grid这将解决y轴上的子组指示符和子组之间的空白间隔。

您还可以删除theme中的y轴标签以避免冗余。

ggplot(df1, aes(x = variable, y = fact, fill = value)) + 
    geom_tile() + 
    facet_grid(subgroup~., scales="free_y") + 
    theme(axis.text.y = element_blank()) 

注：scales="free_y"是必要的，因为fact是不能跨越亚组是相同的，看输出，如果该参数不存在。