ggplot2で凡例の線種が正しく表示されない

Question

私は同じリンクでexampleに従っています。同じプロットで2つのデータフレームをグラフ化しようとしているのと同様の状況です。私は、グラフ内で動作するデータフレームの1つの線種を変更することに興味がありますが、凡例に正しく表示されません。

例データセット：

set.seed(456) 
n <- 20 
dfr <- data.frame(
    id=rep(1:n, 2), 
    group=rep(c("1","2"), each=n), value=c(rnorm(n), rnorm(n, sd=1.1)) 
) 

df_95ci <- data.frame(y_values=c(-1,1)*qnorm(0.95)) 
df_99ci <- data.frame(y_values=c(-1,1)*qnorm(0.99)) 

require(ggplot2) 

コード：

ggplot(data=dfr, mapping=aes(x=id, y=value)) + 
    geom_line(mapping=aes(colour=group)) + 
    geom_hline(data= df_95ci, mapping=aes(yintercept=y_values, size= "95% CI"), colour = "orange", linetype="dotdash") + 
    geom_hline(data= df_99ci, mapping=aes(yintercept=y_values, size= "99% CI"), colour = "darkred", linetype="dotted") + 
    scale_color_hue("Group") + 
    scale_size_manual(
    "CI horizontal line", values=rep(1,4), 
    guide=guide_legend(override.aes = list(colour=c("orange", "darkred"))) 
) + 
    scale_linetype_identity(guide="legend") 

Output

あなたは私が異なる線種を持つ2つのラインを持っていますが、彼らは伝説で同じだ見ることができるように。

Answer 1

これをしますか？

ggplot(data=dfr, mapping=aes(x=id, y=value)) + 
    geom_line(mapping=aes(colour=group)) + 
    geom_hline(data= df_95ci, mapping=aes(yintercept=y_values, linetype= "95% CI"), 
       colour = "orange", size = 1) + 
    geom_hline(data= df_99ci, mapping=aes(yintercept=y_values, linetype= "99% CI"), 
       colour = "darkred", size = 1) + 
    scale_linetype_manual(
     "CI horizontal line", values=c("95% CI" = 4, "99% CI" = 3), 
     guide=guide_legend(override.aes = list(colour=c("orange", "darkred"))) 
    )