ggolot의 hline에 대한 오류 막대

Question

ggplot2로 만든 slighlty complex looking plot이 있습니다. X 축은 각 점의 이름을 가지며 Y 축은 그 값을가집니다. geom_point를 사용하여이를 나타냅니다. 플롯의 각 점마다 오차 막대를 추가했습니다.

이제 다른 선 종류가있는 geom_hline을 사용하여이 데이터의 샘플을 나타내는 플롯을 겹쳤습니다. 첫 번째와 다른 데이터 프레임이지만 X 축과 Y 축을 공유합니다. 이 hlines의 편차를 보여주고 싶습니다. 그리고 hlines의 편차를 묘사하는 방법에 대한 영감을 찾고 있습니다.

오류 막대를 추가하려고했지만 Xaxis에 추가 샘플로 표시되는데 이상적이지 않습니다. 처음에는 실현 가능한 아이디어입니까?

이것은 hlines로 보이는 방식으로, 오류 막대는 X 축의 추가 점으로 표시됩니다.

편집 : 코드의 코드 조각은

p <- ggplot(df_sample_dots, aes(x=Names, y=Values), show.legend = TRUE) + geom_point(size=5, aes(color=factor(Names))) + 
     geom_errorbar(aes(ymin=Values-dev, ymax=Values+dev), width=.2, position=position_dodge(.9), color="black") 

p <- p + geom_hline(aes(yintercept=Values, linetype=Names), data=df_sample_hlines, show.legend = TRUE, color="black") + 
     geom_errorbar(aes(ymin=Values-dev, ymax=Values+dev), data = df_sample_hlines, color="thistle4", width=1, size=1) 

Answer 1

어떻게 이런 일에 대해 비슷한 사람이 노력하고 뭔가 영감의 역할을하는 경우 :

library(ggplot2) 
library(dplyr) 

set.seed(12345) 

toPlot <- 
    data.frame(
    group = factor(sample(LETTERS[1:10],1000,TRUE)) 
) %>% 
    mutate(value = rnorm(1000) + 
      as.numeric(group)/10) 

basePlot <- 
    ggplot(toPlot) + 
    stat_summary(aes(x = group 
        , y = value) 
       , fun.data = mean_cl_normal) + 
    theme_minimal() 

basePlot 

lineAdd <- 
    data.frame(
    x = range(as.numeric(toPlot$group)) + c(-.5,.5) 
    , ymax = 1.2 
    , ymin = 0.8 
) 

basePlot + 
    geom_ribbon(
    data = lineAdd 
    , mapping = aes(x = x 
        , ymax = ymax 
        , ymin = ymin) 
    , col = "light gray" 
    , alpha = 0.2 
) + 
    geom_hline(yintercept = 1) 

당신은 여전히 ​​필요 수동으로 각 행을 추가하고 (리본에 대한 데이터를 생성합니다), 그 입력 데이터 세트가 일관성이 있다면 그 데이터를 자동화 할 수 있습니다 .