带刻面的渐变填充绘图面板答案

【问题标题】：Gradient filled plot panels with facet带刻面的渐变填充绘图面板
【发布时间】：2020-01-02 22:32:46
【问题描述】：

我使用以下条形图：

ggplot(yearplot,aes(x=reorder(vE,release.year), y=difference,fill=PAR,label=signif.))  + 
  geom_bar(stat='identity',position = "dodge",  size=3 ,alpha=1)  +
  geom_text(aes(x = vE, y = difference+0.03 , label = format(signif., nsmall = 0, scientific = FALSE)), 
  color="black",size=6) +
  xlab("Genotypen")+
  ylab("Differenz")+
  theme_bw()+
  ylim(-0.2,0.2)+
  facet_wrap(~number,labeller = labeller(number=date.wrap),nrow=1)+
  coord_flip()+
  scale_fill_gradient2(name="PAR \n[mol/m² s]",low="darkblue",mid = "orange1",high = "orangered4",limits=c(1200, 2100),midpoint = 1200)+
  theme(legend.position="top")+
  theme(legend.key.size = unit(3,"line"),
        legend.title = element_text(size = 16,face="bold"),
        legend.text = element_text(size = 14))+
  theme(axis.text=element_text(size=14,face="bold"),
        axis.title=element_text(size=16,face="bold"),
        strip.text = element_text(size=16,face="bold"))

我想将温度值添加为渐变填充的绘图面板，类似于 PAR 值。因此，例如 6 月 1 日的绘图面板是浅绿色，而 6 月 6 日是深绿色，其余时间介于两者之间。在数据框中是每天的一个温度值。有没有可能做到这一点？

【问题讨论】：

请提供可重现的数据示例（请参阅：stackoverflow.com/questions/5963269/…）。否则，帮你解决这个问题真的很复杂

标签： r ggplot2 gradient fill facet

【解决方案1】：

您的问题包含大量代码，但仍然无法重现。丢人现眼！这通常是一个有趣的问题。虽然我个人认为“少即是多”并且应该尽量不要在图表中放入太多信息，但这里有一种解决方案。

您想要填充绘图面板吗？在你的酒吧下面做大矩形。
您想要两个填充？使用ggnewscale。

瞧！

library(tidyverse)
library(ggnewscale)

mtc <- tibble::rownames_to_column(mtcars, 'model')

rect_df <- data.frame(xmin = -Inf, xmax = +Inf, ymin = -Inf, ymax = +Inf, cyl = unique(mtc$cyl))

ggplot() +
  geom_rect(data = rect_df, aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax, fill = cyl)) +
  facet_grid(~cyl) +
  scale_fill_gradient(low="lightgreen",high = "darkgreen") +
  ggnewscale::new_scale_fill() +
  geom_col(data = mtc, aes(x = model, y = gear, fill = disp)) +
  scale_fill_gradient2(low="darkblue",mid = "orange1",high = "orangered4",limits=c(min(mtc$disp),max(mtc$disp)),midpoint = mean(mtc$disp)) +
  coord_flip()

^{由reprex package (v0.3.0) 于 2020 年 1 月 3 日创建}

【讨论】：