更改 ggplot 图例渐变

Question

我有这个关于不同基因型平均增长率的数据集：

Genotype  desv  mean  Rank
   <fct>    <dbl> <dbl> <dbl>
  ENG2    0.345  4.29     7
  ENG20   0.255  3.90     9
  ENG22   0.185  4.19     8
  ENG24   0.341  3.84    10
  ENG25   0.195  3.51    12
  ENG3    0.267  4.38     6
  ENG32   0.262  3.61    11
  ENG4    0.223  4.49     4
  ENG5    0.359  5.13     2
  ENG7    0.122  4.49     5
  ENG8    0.182  4.90     3
  ENG9    0.459  5.28     1

以及制作 ggplot 图的代码：

ggplot(growth2)+
  geom_col(aes(x=Rank, y=mean, fill=mean), width=0.7, color="Black")+
  geom_errorbar(aes(x=Rank, ymin=mean-desv, ymax=mean+desv), position = position_dodge(width=0.9),width=0.4, alpha=1)+
  theme_classic()+
  theme(axis.text.x=element_text(angle = 90, hjust =2, vjust = 0.5, family="sans", size=12, color="Black"))+
  theme(axis.ticks.x = element_blank())+
  xlab("")+
  ylab(expression(paste("AGR (cm "," ", year^-1,")", sep="")))+
  theme(axis.line.x = element_blank())+
  theme(axis.text.y=element_text(family="sans", size=12, color="Black"))+
  theme(axis.title.y= element_text(margin=margin(t=0, r=10, b=0, l=0)))+
  scale_y_continuous(breaks=c(0, 1, 2, 3, 4, 5, 6), limits = c(0,6))+
  scale_fill_gradient(low="red", high="green", name="")+
  geom_hline(yintercept = 0, color="Black")+
  theme(legend.position = c(0.5,1), legend.direction = "horizontal")+
  theme(legend.text = element_blank())+
  theme(plot.margin = margin(1,0,0,0, unit = "cm"))+
  scale_x_continuous(breaks=c(1,2,3,4,5,6,7,8,9,10,11,12),labels = c("ENG 9 ", "ENG 5 ", "ENG 8 ", "ENG 4 ", "ENG 7 ", "ENG 3 ", "ENG 2 ", "ENG 22", "ENG 20", "ENG 24", "ENG 32", "ENG 25"))

然而我的传说并不是我想要的样子。绿色部分（高增长率）应该在左边。我在 guides_legend 中尝试相反的操作，但没有用。我也希望图例的大小占据图表的长度。我没有在 ggplot 中发现任何关于图例长度的争论。

有人可以帮助我吗？或者指出是否可以更改这些图例。

Answer 1

在渐变比例的情况下，您必须使用 guide_colorbar(reverse = TRUE) 而不是 guide_legend:

colorbar的with可以通过选项设置barwidth = grid::unit(750, "pt"))

library(ggplot2)

ggplot(growth2) +
  geom_col(aes(x = Rank, y = mean, fill = mean), width = 0.7, color = "Black") +
  geom_errorbar(aes(x = Rank, ymin = mean - desv, ymax = mean + desv), position = position_dodge(width = 0.9), width = 0.4, alpha = 1) +
  theme_classic() +
  theme(axis.text.x = element_text(angle = 90, hjust = 2, vjust = 0.5, family = "sans", size = 12, color = "Black")) +
  theme(axis.ticks.x = element_blank()) +
  xlab("") +
  ylab(expression(paste("AGR (cm ", " ", year^-1, ")", sep = ""))) +
  theme(axis.line.x = element_blank()) +
  theme(axis.text.y = element_text(family = "sans", size = 12, color = "Black")) +
  theme(axis.title.y = element_text(margin = margin(t = 0, r = 10, b = 0, l = 0))) +
  scale_y_continuous(breaks = c(0, 1, 2, 3, 4, 5, 6), limits = c(0, 6)) +
  scale_fill_gradient(low = "red", high = "green", name = "", guide = guide_colorbar(reverse = TRUE)) +
  geom_hline(yintercept = 0, color = "Black") +
  theme(legend.position = c(0.5, 1), legend.direction = "horizontal") +
  theme(legend.text = element_blank()) +
  theme(plot.margin = margin(1, 0, 0, 0, unit = "cm")) +
  scale_x_continuous(breaks = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), labels = c("ENG 9 ", "ENG 5 ", "ENG 8 ", "ENG 4 ", "ENG 7 ", "ENG 3 ", "ENG 2 ", "ENG 22", "ENG 20", "ENG 24", "ENG 32", "ENG 25"))

Answer 2

为了切换图例中的颜色顺序，我交换了这一行的颜色名称：

  scale_fill_gradient(low="green", high="red", name="")+

为了在整个 x 轴上加宽图例，我在 theme():

之后使用了 legend.key.width

theme(plot.margin = margin(1,0,0,0, unit = "cm"),
    legend.key.width= unit(4, 'cm'))+

更改 ggplot 图例渐变

Changes ggplot Legend gradient

graphics

r

ggplot2