I have generated a plot showing median expected value over time with a 95% confidence interval ribbon plot. But there are two repeated legends. How do I remove the left hand legend?

Thanks for the help. Larry Hunsicker

```
ggplot(p1, aes(testyrs, yfit, color = StudyID)) +
geom_line() +
scale_color_discrete(name ="CIT Study") +
geom_ribbon(aes(testyrs, ymin = pi_lb, ymax = pi_ub, fill = StudyID),
alpha = .2) +
theme(legend.position = "bottom") +
labs(x = "Years following first PHPI transplant", y = 'HbA1c',
title = "Projected course of HbA1c following PHPI transplant",
subtitle = "Median and 95% credible interval, CIT-07 and CIT-06")
```