cowplotを使用してプロットを棒グラフ（stat = identity）に変換するcowplotを使用してエラー

Question

棒グラフとcowplotを使用して点をプロットするとエラーが発生します。要求があれば、私は実際の例をまとめようとすることができますが、誰かが明白な問題を見つけられるかどうかを最初に見ていると思いました。

コードと次のようにバープロットのプロットを得られることで次のよう

dodge=position_dodge(width=0.9) 
pbar <- ggplot(data = dat,aes(x=npnts,y=power,fill=PrpSurvPerYr)) + 
    geom_bar(aes(fill=PrpSurvPerYr),stat="identity",colour="black",position=dodge) + 
    geom_hline(yintercept=80,linetype="dotted",size=1) + 
    ylab("Power") + xlab("Number of points per transect") + 
    scale_fill_manual(values = c("white","gray","black")) + 
    scale_y_continuous(breaks=seq(0,100,by=20)) + 
    theme(axis.text.x=element_text(size=20)) + 
    theme(axis.text.y=element_text(size=20)) + 
    theme(axis.title.x=element_text(size=30)) + 
    theme(axis.title.y=element_text(size=30)) + 
    geom_text(aes(label=ntrns),vjust=-0.3,size=8,position=dodge)+ 
    labs(fill="% transects \nsurveyed \nper year") + 
    theme(legend.title=element_text(size=20)) + 
    theme(legend.text=element_text(size=18)) 

Bar plot

コード点プロットのプロットを得です：

ptrd <- ggplot(data = dat.plt,aes(x=X,y=med)) + 
    geom_point(size=3,alpha=0.3) + 
    geom_errorbar(aes(ymin=lo,ymax=hi),width=0.003,alpha=0.3) + 
    geom_hline(yintercept=0.98,linetype="dotted") + 
    scale_y_continuous(breaks=c(0.98)) + 
    scale_x_continuous(breaks=c()) + 
    ylab(expression(hat(lambda)[psi])) + xlab(NULL) + 
    theme(axis.text.x=element_blank()) + 
    theme(axis.title.x=element_blank()) + 
    theme(axis.title.y=element_text(size=35)) + 
    theme(axis.text.y=element_text(size=26)) 

Point plot 2つを一緒にステッチしてみました：

p <- ggdraw() + 
    draw_plot(pbar, x = 0, y = 0, width = 1, height = .0.75) + 
    draw_plot(ptrd, x = 0, y = 0.75, width = 1, height = .25) 

残念ながら、「不明な定数」に関するエラーが表示され、許容されるコンソールスペースを過負荷にするほどの量の出力が続くため、エラーをよく見てもわかりません。

すべてのアイデアをいただければ幸いです。

Answer 1

私は、再現可能な例を生成するプロセスを開始し、私のスクリプトでエラーを見つけました。最初の 'draw_plot'コマンドに「height」の「.0.75」があります。

推測私は、怠惰ではなく、転載前に再現可能な例を生成するプロセスを踏む必要があります。おそらく、これらの種類のエラーの大部分がキャッチされているのです。あなたの注意と時間を無駄にして申し訳ありません。