r - axis.break と ggplot2 または gap.plot? プロットが複雑すぎる可能性があります

Question

ggplot2 でプロットを作成しました。乳タンパク質の含有量についてです。私は2つのグループと4つの治療を受けています。グループと治療、平均値とエラーバーの間の相互作用を示したいと思います。タンパク質含有量は 2.6% から始まります。今、私の y 軸はギャップなしでそこから始まりますが、私のスーパーバイザーは 1 つにしたいと考えています。plotrix ライブラリの axis.break() を試しましたが、何も起こりませんでした。gap.plot でグラフィックを再構築しようとしましたが、成功しませんでしたが、私は R ヒーローではないことを認めなければなりません。

私のグラフィックのコードは次のとおりです。

Protein<-ggplot(data=D, aes(x=treat, y=Prot,group=group, shape=group))+
  geom_line(aes(linetype=group), size=1, position=position_dodge(0.2))+
  geom_point(size=3, position=position_dodge(0.2))+
  geom_errorbar(aes(ymin=Prot-Prot_SD,ymax=Prot+Prot_SD), width=.2,      
position=position_dodge(0.2))+ 
  scale_shape_discrete(name='group\n', labels=c('1\n(n =   
22,19,16,20)\n','2\n(n = 15,12,14,12)'))+
  scale_linetype_discrete(name="group\n", labels=c('control\n(n =   
22,19,16,20)\n','free-contact\n(n = 15,12,14,12)'))+
  scale_x_discrete(labels=c('0', '1', '2', '3'))+
  labs(x='\ntreatment', y='protein content (%)\n')
ProtStar<-Protein+annotate("text", x=c(1,2,3,4), y=c(3.25,3.25,3.25,3.25),   
label=c("Aa","Aa","Ab","Ba"), size=4)
plot(ProtStar)

残念ながら、画像を投稿するほどの評判はありませんが、コードからグラフィックが複雑であることがわかるかもしれません。

有益な提案があれば素晴らしいことです。どうもありがとう！