r - プロットには、正確に 1 つのパネルが含まれている必要があります。ファセット散布図の周辺箱ひげ図

Question

私はプログラミングに非常に慣れていませんが、以下のリンクのアドバイスを使用して、ファセット散布図と散布図の限界ボックス プロットを作成することができました: http://www.lreding.com/nonstandard_deviations/2017/08/19/cowmarg/

私の質問は、ファセット散布図で限界ボックスプロットを作成するにはどうすればよいですか?

私のコードは次のとおりです。

CN<-read.csv("LfFlw.csv")
library(ggplot2)

単純な散布図:

ggplot(data=CN, aes(x=PlantOrder, y=CN, colour=Tissue))+geom_point()+facet_wrap(~Population, scales="free_x", nc=2)

白黒の散布図：

sc<-ggplot(data=CN, aes(x=PlantOrder, y=CN, shape=Tissue))+geom_point()+facet_wrap(~Population, scales="free_x", nc=2)
sc

軸にラベルを付けた散布図：

sc_lab<-sc+labs(x="Individual plants (ordered)", y="Cyanide (ug g^-1 dw)")
sc_lab

ラベル付きの軸とクラシック テーマを使用した散布図:

sc_lab_th<-sc_lab+theme_classic()
sc_lab_th

軸にラベルを付けた散布図と形状を変更した古典的なテーマ:

s<-sc_lab_th+scale_shape_manual(values=c(8,2))
s

ファセットと白/灰色の箱ひげ図:

y_box <- axis_canvas(s, axis = "y") + geom_boxplot(data = CN, outlier.shape = 1, aes(x = 0, y = CN, fill=Tissue)) + 
  facet_wrap(~Population, scales="free_x", nc=2)+scale_fill_manual(values=c("white", "grey"))
y_box

library(cowplot)

ggdraw(insert_yaxis_grob(s, y_box, position = "left"))

そして、ここで私はエラーになります：

get_panel(grob) のエラー: プロットにはパネルが 1 つだけ含まれている必要があります