Легенды в ggplot

Question

Я пытаюсь построить эти данные, и линейный график правильный, но я не могу заставить легенду появиться. Есть мысли?

ggplot(data, aes(x=time_months, size=I(1))) +geom_line(aes(y=monthly_net_revenue, color=I("blue"))) +
    geom_line(aes(y=cumsum(discounted_monthly_net_revenue), color=I("purple"))) +
    geom_line(aes(y=monthly_expenses, color=I("red"))) +
    geom_line(aes(y=cumsum(monthly_revenue), color=I("green")))

Answer 1

Это, вероятно, будет работать для вас

ggplot(data, aes(x=time_months, size=I(1))) +
    geom_line(aes(y=monthly_net_revenue, color="blue")) +
    geom_line(aes(y=cumsum(discounted_monthly_net_revenue), color="purple")) +
    geom_line(aes(y=monthly_expenses, color="red")) +
    geom_line(aes(y=cumsum(monthly_revenue), color="green")) + 
    scale_color_identity(guide = "legend")

scale_color_identity() использует значения, которые вы передаете color=, непосредственно как цвет, а не обрабатывает их как имя группы. Вам не нужно I() с этим методом.