web-dev-qa-db-ja.com

凡例をhlineに追加する方法は？

Hlineプロットに凡例を追加したいと思います。

私のサブセットの頭はこのように見えます

Site       Date    Al
1   Bo6 2014-10-07 152.1
2   Bo1 2014-10-07 157.3
3   Bo3 2014-10-07 207.1
4   Bo4 2014-10-07 184.3
5   Bo5 2014-10-07  23.2
13  Bo6 2014-10-14  96.8

私のコードは次のとおりです：

require(ggplot2)
require(reshape2)
require(magrittr)
require(dplyr)
require(tidyr)
setwd("~/Documents/Results")
mydata <- read.csv("Metals sheet Rwosnb5.csv")
mydata <- read.csv("Metals sheet Rwosnb5.csv")
L <- subset(mydata, Site =="Bo1"| Site == "Bo2"| Site == "Bo3"| Site ==          "Bo4"| Site == "Bo5" | Site == "Bo6", select = c(Site,Date,Al))
L$Date <- as.Date(L$Date, "%d/%m/%Y")
I <- ggplot(data=L, aes(x=Date, y=Al, colour=Site)) +
  geom_point() + 
  labs(title = "Total Al in the Barlwyd and Bowydd in Pant-yr-afon    sites B4-B9
   2014-2015.", x = "Month 2014/2015",
   y = "Total concentration (mg/L)") +
  scale_y_continuous(limits = c(0, 500)) +
  scale_x_date(date_breaks = "1 month", date_labels = "%m")
I + geom_hline(aes(yintercept= 10),  linetype = 2, colour= 'red',   show.legend =TRUE) +
  geom_hline(aes(yintercept= 75.5), linetype = 2, colour= 'blue', show.legend = TRUE)

何らかの理由で凡例が機能しません。凡例には6つのサイトがあり、そこに線が引かれています。タイトル=制限、ラベル1（10）= NRW制限、ラベル2（75.5）=地球化学アトラス制限の凡例が理想的です。

rggplot2legendgeom-hline
16
LucySHE

linetype審美性を使用して、既存の凡例に追加するのではなく、水平線に個別の凡例を作成できます。

これを行うには、定数にマッピングしながら、linetypeをaes内に移動します。希望のラベルを定数として使用しました。使用する凡例名と線種はscale_linetype_manualで設定できます。 show.legend = TRUEを削除して、他の凡例に線が入らないようにします。凡例の色はoverride.aesで修正されています。

I + geom_hline(aes(yintercept= 10, linetype = "NRW limit"), colour= 'red') +
    geom_hline(aes(yintercept= 75.5, linetype = "Geochemical atlas limit"), colour= 'blue') +
    scale_linetype_manual(name = "limit", values = c(2, 2), 
                      guide = guide_legend(override.aes = list(color = c("blue", "red"))))

enter image description here

31
aosmith