Использование ggplot2 в R и легенда не будут отображаться на моем рисунке. Это почему?

Question

View(PV)                                                                

library(ggplot2)

ssplot <- ggplot(PV, aes(x=year)) + geom_line(aes(y = infinite_horizon), color = "darkred", size = 1) + geom_line(aes(y = through_year_75), color="steelblue", size = 1)

print(ssplot + labs(y="Present Value ($, trillions)", x = "Year") + ggtitle("Measures of Unfunded Social Security Obligations, 2003-2020"))

К сожалению, я пока не могу публиковать изображения, но получаю фигуру с двумя линиями и без легенды. Почему это так? Любая помощь будет оценена. Спасибо.

Answer 1

установите цвет в aes() и используйте scale_color_manual(), чтобы установить цвет вручную

ggplot(PV, aes(x = year)) + 
  geom_line(aes(y = infinite_horizon, color = "darkred"), size = 1) + 
  geom_line(aes(y = through_year_75, color="steelblue"), size = 1) +
  scale_color_manual(values = c("steelblue" = "steelblue", "darkred" = "darkred"))

Answer 2

Трудно понять, не увидев пример ваших данных, но реструктуризация вашего кода, как показано ниже, поможет устранить неполадки:

library(ggplot2)

ssplot <- ggplot(PV, aes(x=year)) + 
geom_line(aes(y = infinite_horizon), color = "darkred", size = 1) +
geom_line(aes(y = through_year_75), color="steelblue", size = 1) +
labs(y="Present Value ($, trillions)", x = "Year") +
ggtitle("Measures of Unfunded Social Security Obligations, 2003-2020")

ssplot