Question

我有一个数据框，我在谈论大坝的不同水流（水单位是kcfs-1000立方英尺/秒 - 如果有人有兴趣的话）

称之为df4plot

    date         kcfs    Flowtype
    10/1/2010        50     Power
    10/1/2010        10     Spill_Overgen
    10/1/2010         8         Spill_Force
    10/2/2010        52     Power
    10/2/2010         7     Spill_Overgen
    10/2/2010        10     Spill_Force

（数据框中有3x365行）

所以我想做的是制作一个显示每个流程的聚合区域图

p <- ggplot(data = df4plot, aes(date,kcfs)) +
geom_area(aes(colour = Flowtype, fill=Flowtype), position = “stack”)

我想控制使用的颜色，所以我添加了

plot_colors_aggregate <- c("forestgreen","lightsalmon","dodgerblue")
p <- p +
scale_color_manual(values = plot_colors_aggregate) +
scale_fill_manual(values = plot_colors_aggregate)

现在我想添加一条虚线，显示最大涡轮机容量 - 发电量的流量限制 - 按月变化。我有一个单独的数据帧（365行长），df4FGline

    Date    FGlimit
    10/1/2010   52
    10/2/2010   52
     …
    11/1/2010   60
    11/2/2010   60
    ...
    Etc

所以现在我有了

p <- p + 
geom_line(data = df4FGline, aes(x=date,y=FGlimit), colour = “darkblue”, linetype = “dashed”)

p

图例目前只是三种Flowtype的三个块。我想将流量限制的虚线添加到底部，但我不能让它显示在那里。

这可能与我对aes的不完全理解有关（帮助（aes）令人惊讶无益）。

我尝试过与this类似的东西，类似于this，但是因为我只是想在预先存在的传说中添加1行，也许？，这不起作用对我来说。

我尝试在geom_line的括号内添加“legend = TRUE”，但它在图例中的每个颜色框内放置一条虚线，并为图例创建了第4个条目，但偏离了图例的其余部分（下面和右边）...... ARG！

我发誓我订购了这本书......你可以分享任何帮助，这样我就能理解这个美学的东西，以及它与传奇有什么关系，我会非常感激。

编辑错误

Answer 1

这应该有所帮助：

df <- data.frame(x = 1:10,y = 1:10)
ggplot(df,aes(x = x,y = y)) + 
   geom_line(aes(linetype = "dashed")) + 
   scale_linetype_manual(name = "Linetype",values = "dashed")

将geom_line的键添加到geom_area的图例中

1 个答案: