Как отцентрировать панели ошибок, как сделать толщину разброса одинаковой? - PullRequest
Новая
       9

Как отцентрировать панели ошибок, как сделать толщину разброса одинаковой?

0 голосов
/ 26 апреля 2019

Я бы хотел расположить полосы ошибок по горизонтали по отношению к каждой из полос рассеяния.

Кроме того, я хочу, чтобы ширина разброса была одинаковой.Форма не обязательно должна быть прямоугольной.

Мой data.frame выглядит следующим образом 

ExpType Drug1 Drug2 Experiment    Image Threshold SG_ID       X       Y SG GG_Area
1     For    XX  <NA>          1 t00_0103      2000    17 125.312 109.035  2   0.492
2     For    XX  <NA>          1 t00_0104      2000    45  99.856 109.495 33   0.739
3     For    XX  <NA>          1 t00_0105      2000    55  84.058  54.622 36   0.831

  GR_RawIntDen Condition Trial  logGGArea logGGMean
1       489440       t00  0103 -0.7092766  8.678972
2       151602       t00  0104 -0.3024574  7.873526
3        77394       t00  0105 -0.1851255  8.151178

Эти данные используются для построения графика ниже 

ggplot(data = frmGGtop,
       aes(x=Condition, y=logGGArea, fill=as.factor(Drug1), shape=as.factor(Drug1)))+
  geom_jitter(aes(color=as.factor(Drug1)), 
              alpha=.35, position = position_dodge2(.7))+
  stat_summary(aes(group = Drug1), 
               fun.data = mean_se, fun.args = list(mult=1), 
               width=.9, geom="errorbar", position=position_dodge(width=.9))+
  stat_summary(fun.y = mean, geom = "point", aes(group = Drug1), 
               shape = "-", size = 8, position = position_dodge2(width = .9)) +

  scale_color_manual(values=c(XX = "#5C5C5C", RK = "#CC2E40"))+

  theme_bw()+
  theme(legend.position = "none",
        plot.title = element_blank(),
        panel.grid.major.x = element_blank(),
        axis.title.x = element_text(),
        axis.text.x = element_text(),
        axis.ticks = element_blank(),
        axis.text.y = element_text(size=rel(.7)))

enter image description here

...