R 带有一个数据框的主条形图并使用其他数据框添加错误栏

Df1是第一个数据帧 Df2是具有sd和se的第二个:

只需将其添加到代码中:

  geom_errorbar(data = df2, aes(ymin=joystick_reaction-sd, ymax= joystick_reaction  +sd), width=.2, position=position_dodge(.9)) 

library(tidyverse)

ggplot(df1, aes(x=Congruency, y=joystick_reaction, fill = as.factor(Congruency)))+
  geom_bar(position=position_dodge(.5), size=.75,  width=0.5, colour="black", stat= "summary", fun= "mean") +
  geom_line(aes(group=participant), linetype = "dashed") + 
  geom_point(aes(group=participant), shape = 21, color = 'black')+
  # geom_errorbar(aes(ymin=RT_Cong$joystick_reaction-RT_Cong$se, ymax=RT_Cong$joystick_reaction+RT_Cong$se), width=.2,
  #                position=position_dodge(0.05))+
  theme_classic(base_size=18)+
 # coord_cartesian(ylim = c(700, 1200))+ # set the y limits
  ylab("RT (ms)")+labs(fill="j")+
  theme(axis.title.y = element_text(size = rel(1), angle = 90,  vjust=1.25))+
  theme(axis.title.x = element_text(size = rel(1), angle = 0,  vjust=0))+
  theme(axis.text.x = element_text(size=rel(1)))+
  theme(axis.text.y = element_text(size=rel(1)))+theme(legend.position = "none")+
  theme(strip.text.x = element_text(size=9))+
  # from set 1 color brewer
  scale_fill_manual(values=c("#0571b0","#ca0020"))+
  geom_errorbar(data = df2, aes(ymin=joystick_reaction-sd, ymax= joystick_reaction  +sd), width=.2, position=position_dodge(.9))