GGPLOT - 多個圖例的順序（geom_line 和 geom_line 加上 geom_point）

Question

我搜索了許多已經回答的問題，但沒有一個可以幫助我。

這是我的代碼：

ggplot(z, aes(x=`Fecha de muestreo`, y = Valor, color = `Nombre de la estación`)) + 
  geom_line(size = 0.4) + 
  geom_point(size=0.5) + 
  scale_x_date(date_labels = "%b", breaks = "1 month", limits = c(as.Date("2019-1-1"), as.Date("2019-12-20"))) + 
  scale_y_continuous("pH (unidades de pH)", limits = c(3, 11), breaks = c(3:11)) +
  geom_hline(aes(yintercept = 6.5, linetype = "ECA cat.3 inf D1 y D2 : 6.5"), colour = "Blue", size = 0.4)+
  geom_hline(aes(yintercept = 8.4, linetype = "ECA cat.3 sup. D1 : 8.4"), colour = "Green", size = 0.4)+
  geom_hline(aes(yintercept = 8.5, linetype = "ECA cat.3 sup. D2 : 8.5"), colour = "red", size = 0.4)+
  scale_linetype_manual(name = NULL, values = c(1, 1, 1), # values = tipo de lineas
                        guide = guide_legend(override.aes = list(color = c("blue", "Green", "Red")))) +
  theme(axis.text=element_text(size=6), 
        legend.margin = unit(-0.2, "cm"),
        axis.title=element_text(size=7,face="bold")) +
  theme(legend.text=element_text(size=6), 
        legend.title = element_blank(), 
        legend.spacing.x = unit(.2, 'cm')) + 
  theme(legend.key = element_rect(fill = "white")) +
  theme(panel.background = element_rect(fill = "white")) +
  theme(panel.grid = element_line(colour= "gray"))

這是圖表：

我需要更改圖例的順序：“ECAS”應該在底部。 我該怎么做？

Answer 1

這應該可以使用guides()的order項。 例如：

library(ggplot2)
a <- ggplot(mtcars, aes(wt, mpg, 
                   color = as.character(cyl), 
                   fill = as.character(gear))) +
  geom_point(size = 5, shape = 21, stroke = 2) +
  scale_color_discrete(name = "cyl as color") +
  scale_fill_discrete(name = "gear as fill")
a  

要顛倒順序，我們可以添加：（注意，排序似乎是自下而上的）

a +
  guides(color = guide_legend(order = 0),
         fill  = guide_legend(order = 1))