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()。