如何在使用循環在構面中創建多個geom_hline對象時有效地創建手動圖例？

Question

我已經腳本下面的例子來說明我的問題。

我想爲每個geom_hline我的情節我自己的自定義圖例和顏色方案。我可以通過使用這個答案來實現這個Construct a manual legend for a complicated plot。

不過，我創建將在一個循環的情節創建任意數量的水平線的功能。這意味着我需要動態地將變量提供給aes_string函數。但是， aes_string(yintercept = colname, colour = colname)不起作用。因爲我會得到以下錯誤'geom_hline Error: Discrete value supplied to continuous scale'。

這使我創造了以下解決方案，包括創建的每一行我希望繪製包含可以通過在scale_colour_manual向量來拿起一個名字一個額外的列。我覺得這很麻煩，效率低下。

這按預期工作，但我有2個問題：

1. 爲什麼aes_string(yintercept = colname, colour = colname_colour)工作和aes_string(yintercept = colname, colour = colname)沒有。

2. 必須有實現輸出我有一個更有效的方式，我失去了什麼？

輸出的示例代碼：http://imgur.com/a/dvzAM

mean_wt <- data.frame(cyl = c(4, 6, 8) 
, wt = c(2.28, 3.11, 4.00) 
, wt2 = c(3.28, 4.11, 5.00) 
, wt_col = c("a", "a", "a") 
, wt_col2 = c("b", "b", "b")) 

hline_listA <- list() 
for(i in 2:3){ 
    colname <- mean_wt[,i] 
    colname_colour <- mean_wt[,i+2] 
    grob <- geom_hline(data =mean_wt 
, aes_string(yintercept = colname, colour = colname_colour)) 
    hline_listA[[i-1]] <- grob 
} 
ggplot() + 
    geom_point(data = mtcars, aes(mpg, wt)) + 
    hline_listA + 
    facet_wrap(~ cyl, scales = "free", nrow = 1) + 
    scale_colour_manual(name = "legend", values = c( 
    "a" = "seagreen1" 
    , "b" = "darkorange")) 

Answer 1

我無法想象的情況是，我會用一個循環做任何ggplot。通常的方式來實現你想要的是以ggplot可以使用的方式調整數據幀。這是一個簡短的解決方案，只需調用geom_line一次。

library(ggplot2) 
mean_wt <- data.frame(cyl = c(4, 6, 8), 
         wt = c(2.28, 3.11, 4.00, 3.28, 4.11, 5.00), 
         wt_col = c("a", "a", "a", "b", "b", "b")) 

ggplot() + 
    geom_point(data = mtcars, aes(mpg, wt)) + 
    geom_hline(data = mean_wt,aes(yintercept = wt, color = wt_col)) + 
    facet_wrap(~ cyl, scales = "free", nrow = 1) + 
    scale_colour_manual(name = "legend", 
         values = c("a" = "seagreen1", 
           "b" = "darkorange"))