add a legend to a ggplot2 plot

[eberlin]

Hello can you teach me how to add a legend to this plot thank you

#AIA Lose  
LAplot2 <- ggplot(LoseAIA, aes(Instrument, LALsen))+
  xlab("Instrument Type") +ylab(" Estimated Loss ($k) / Year") +
  scale_y_continuous(limits=c(0,100), breaks=seq(0, 100,by=20))+
  geom_jitter(colour = "red") +
  scale_x_discrete(limits=c("AIA-360", "AIA-600II", "AIA-900ST", "AIA-900+9", "AIA-900+19", "AIA-1800", "AIA-2000")) +
  theme_classic()

#AIA Win
WARsen <- WinAIA$AnnualizedRevenue.2018/1000

WAplot <- ggplot(WinAIA, aes(Instrument, WARsen))+
  xlab("Instrument Type") +ylab(" Estimated Revenue ($k) / Year") +
  scale_y_continuous(limits=c(0,100), breaks=seq(0, 100,by=50))+
  geom_jitter(colour = "blue") +
  scale_x_discrete(limits=c("AIA-360", "AIA-600II", "AIA-900ST", "AIA-900+9", "AIA-900+19", "AIA-1800", "AIA-2000")) +
  theme_classic(+ theme(legend.position="right"))

[aosmith]

If the info in this thread didn't help you, definitely open up a question of your own to ask for help.

You will want to include a reproducible example (aka "reprex"), which will include an example of your dataset.

FAQ: What's a reproducible example (`reprex`) and how do I create one?

Why reprex? Getting unstuck is hard. Your first step here is usually to create a reprex, or reproducible example. The goal of a reprex is to package your code, and information about your problem so that others can run it and feel your pain. Then, hopefully, folks can more easily provide a solution. What's in a Reproducible Example? Parts of a reproducible example: background information - Describe what you are trying to do. What have you already done? complete set up - include any library() calls and data to reproduce your issue. data for a reprex: Here's a discussion on setting up data for a reprex make it run - include the minimal code required to reproduce your error on the data…