1

我有一个数据框，我在其中谈论大坝的不同水流（水单位是 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 的不完全理解有关（help(aes) 非常无用）。

我已经尝试过类似this 和类似 this 的东西，但是因为我只是想在预先存在的图例中添加 1 行，也许？，这对我不起作用。

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

我发誓我已经订购了这本书......你可以分享任何帮助，以便我更好地理解这个美学事物以及它与传说的关系，我将非常感激。

编辑错字

4

1 回答 1

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")
于 2012-08-17T14:43:51.080 回答