在`R`的`ggalt :: geom_dumbbell`中添加一個傳統的傳說來啞鈴情節

Question

如何添加一個傳統的傳說來使用ggalt::geom_dumbbell在R創建的啞鈴情節？

This question has an answer with in-chart legend。如何繪製美學圖像以獲得側面/底部的點的單獨圖例？

library(ggalt) 

df <- data.frame(trt=LETTERS[1:5], l=c(20, 40, 10, 30, 50), r=c(70, 50, 30, 60, 80)) 

ggplot(df, aes(y=trt, x=l, xend=r)) + 
    geom_dumbbell(size=3, color="#e3e2e1", 
       colour_x = "red", colour_xend = "blue", 
       dot_guide=TRUE, dot_guide_size=0.25) + 
    theme_bw() 

得到一個圖例

Answer 1

的一種方式是添加基於在長格式的數據集，映射到color分組變量a點層。

首先，通過gather從tidyr製作長格式數據集。

df2 = tidyr::gather(df, group, value, -trt) 

然後，讓情節，加入新的點層與長期數據集，並使用scale_color_manual來設置顏色。我把geom_dumbbell特定的美學移到了這一層。

ggplot(df, aes(y = trt)) + 
    geom_point(data = df2, aes(x = value, color = group), size = 3) + 
    geom_dumbbell(aes(x = l, xend = r), size=3, color="#e3e2e1", 
        colour_x = "red", colour_xend = "blue", 
        dot_guide=TRUE, dot_guide_size=0.25) + 
    theme_bw() + 
    scale_color_manual(name = "", values = c("red", "blue"))