折れ線グラフにエラーバーを

実現したいこと

R言語で折れ線グラフのエラーバーを追加したい

前提

R言語で平均体重の推移を表した折れ線グラフを作成しています。
残すはエラーバーの表示のみとなったのですが苦戦しています。

発生している問題・エラーメッセージ

該当のソースコード

R言語

a<-ggplot()+geom_line(data=data,aes(x=DPH,y=Control,color="Control"),size=0.5,)+geom_point(data=data,aes(x=DPH,y=Control,color="Control"),size=2.5,)+geom_line(data=data , aes(x=DPH, y=GS500_8wks, color="GS500_8wks"),size=0.5)+geom_point(data=data , aes(x=DPH, y=GS500_8wks, color="GS500_8wks"),size=2.5)+geom_line(data=data , aes(x=DPH, y=GS500_16wks,color="GS500_16wks"),size=0.5)+geom_point(data=data , aes(x=DPH, y=GS500_16wks,color="GS500_16wks"),size=2.5)+geom_line(data=data,aes(x=DPH,y=GS1000_8wks,color="GS1000_8wks"),size=0.5)+geom_point(data=data,aes(x=DPH,y=GS1000_8wks,color="GS1000_8wks"),size=2.5)+geom_line(data=data,aes(x=DPH,y=GS1000_16wks,color="GS1000_16wks"),size=0.5)+geom_point(data=data,aes(x=DPH,y=GS1000_16wks,color="GS1000_16wks"),size=2.5)+theme_classic()+theme(text = element_text(size = 18))+ labs(title="Body weight")+ labs(y="Body weight(g)")+labs(x="DPH")+ labs(colour="")+theme(plot.title = element_text(hjust = 0.5))+scale_x_continuous(breaks = seq(56,168,28), labels = seq(56,168,28)) geom_errorbarを試そうとしたのですがこの場合どう追加すればいいのかわからなくなってしまいました。