Olá!
Estou tentando colocar a legenda do gráfico a seguir de forma que apareça os símbolos do gráfico na legenda.
Está aparecendo somente linhas na legenda e mesmo assim não especifica de acordo com o tipo de linha e cor.
Segue meu comando e o gráfico gerado.
dados <- read.table(text =
"Mes local1 captura1 local2 captura2 eixo
Jan 15 0 17 0.1 0
Fev 15 0 17 0.1 0
Mar 15 1 17 10 0
Abr 15 1 17 10 0
Mai 15 1 17 10 0
Jun 15 10 17 10 0
Jul 15 11 17 10 0
Ago 15 10 17 10 0
Set 15 10 17 10 0
Out 15 10 17 10 10
Nov 15 10 17 10 0
Dez 15 10 17 10 0
", header = T)
head(dados)
levels(dados$Mes)
dados$Mes = factor(dados$Mes, levels=c("Jan", "Fev", "Mar", "Abr", "Mai", "Jun",
"Jul", "Ago", "Set", "Out", "Nov", "Dez"))
ggplot(subset(dados, Mes %in% c("Jan", "Fev")), aes(Mes)) +
geom_line(aes(y = captura1, color = "Zona 15"), size=1,linetype=1, group = 1)+
geom_line(aes(y = captura2, color = "Zona 17"), size=1,linetype=4, group = 2)+
geom_point(aes(y = captura1), color="black", size=3, group = 1, shape=18) +
geom_point(aes(y = captura2), color="red", size=3, group = 2)+
scale_x_discrete(limits = levels(dados$Mes)) +
scale_y_continuous(limits = c(0, max(dados$eixo)))+
scale_color_manual(name= "", values=c("#35978f", "#003c30"),
guide = guide_legend(override.aes=aes(fill=group))) +
theme(legend.position=c("right"))