Editar Legendas

dúvidas
1

Como inserir legendas para cada uma das séries abaixo:

ggplot(data = mtcars) + 
   geom_line(mapping = aes(x = qsec, y = drat), color = "red") + 
   geom_line(mapping = aes(x = qsec, y = drat*wt), color = "blue")
2 
library(ggplot2)

# 1) passar o color pra dentro do aes() para ser mapeado e entao ter legenda pra eles.
ggplot(data = mtcars) + 
    geom_line(mapping = aes(x = qsec, y = drat, color = "a")) + 
    geom_line(mapping = aes(x = qsec, y = drat*wt, color = "b"))



# 2) mantendo as cores red e blue
ggplot(data = mtcars) + 
    geom_line(mapping = aes(x = qsec, y = drat, color = "a")) + 
    geom_line(mapping = aes(x = qsec, y = drat*wt, color = "b")) + 
    scale_color_manual(values = c("red", "blue"))

Created on 2023-05-30 with reprex v2.0.2

1 curtida
3

Obrigado Athos

Acabei foi improvisando uma solução assim:

library(ggplot2)
ggplot(mtcars, aes(x = qsec)) +
  geom_line(aes(y = drat)) + geom_point(aes(y = drat), shape = 1) +
  geom_line(aes(y = drat * wt)) + geom_point(aes(y = drat * wt)) +
  labs(caption = "●....Preço Real           O....Preço Nominal")

Created on 2023-05-31 with reprex v2.0.2

Mas vou considerar o que escreveu, que é mais correto em formalidade

1 curtida