ggplot geom_tile添加自定义标签

Question

使用下面的数据框df

df <- data.frame(model=c(rep('corolla',3),rep( 'accord',3), rep('sunny',3)),variable=c('urban_mileage', 'rural_mileage', 'highway_mileage'),rescale=rnorm(9), year=c(rep(1998,3),rep( 1997,3), rep(2003,3)))

> df
    model        variable     rescale year
1 corolla   urban_mileage -0.73386453 1998
2 corolla   rural_mileage  0.21467425 1998
3 corolla highway_mileage -1.75450160 1998
4  accord   urban_mileage -0.08467004 1997
5  accord   rural_mileage -1.60112730 1997
6  accord highway_mileage  2.26943695 1997
7   sunny   urban_mileage  0.31349626 2003
8   sunny   rural_mileage -0.32768735 2003
9   sunny highway_mileage -0.04645053 2003

我使用geom_tile创建热图，如下所示

ggplot(df, aes(variable, model)) + geom_tile(aes(fill = rescale), colour = "white") +
     scale_fill_gradient2(low = "red", mid = "white", high = "green") +
     labs(x = "",y = "") +
     theme(legend.title = element_blank(),
           axis.text.x = element_text(angle=30,hjust=1,vjust=1.0),
           axis.text.y = element_text(size = 12))

这给出了道路类型里程的热图表示，如最后的图像所示。但是，我想将year和当前的y轴刻度标记添加为括号中model名称下方的文本 - 即代替当前的y轴刻度标记标记，而不是显示

sunny
(2003)

corolla
(1998)

accord
(1997)

Answer 1

这样的事情：？

ggplot(df, aes(variable, model)) + geom_tile(aes(fill = rescale), colour = "white") +
  scale_fill_gradient2(low = "red", mid = "white", high = "green") +
  labs(x = "",y = "") + scale_y_discrete(labels=paste(unique(df$model),paste0("(",unique(df$year),")"),sep="\n")) +
  theme(legend.title = element_blank(),
        axis.text.x = element_text(angle=30,hjust=1,vjust=1.0),
        axis.text.y = element_text(size = 12))