r - 土壌列を表すために同じ列内でボックス プロットを作成する方法

Question

箱ひげ図を使用して、地面のさまざまな深さでの土壌タイプ (土柱) を実証しようとしています。ただし、サンプリング間隔は一貫していないため、サンプル間にギャップもあります。

私の質問は次のとおりです。

1. ボックス プロットを同じ列に配置することは可能ですか? つまり、すべてのボックス プロットが 1 つの直線の列に表示されます

2. 使用時に x 軸のラベルと目盛りを削除することは可能ggdrawですか? プロットを使用するときに削除しようとしましたが、使用すると再び表示されますggdraw。

私のコードは次のようになります。

 SampleID <- c("Rep-1", "Rep-2", "Rep-3", "Rep-4")
 From <- c(0,2,4,9)
 To <- c(1,4,8,10)
 Mid <- (From+To)/2
 ImaginaryVal <- c(1,1,1,1)
 Soiltype <- c("organic", "silt","clay", "sand")
 df <- data.frame(SampleID, From, To, Mid, ImaginaryVal, Soiltype)

 plot <- ggplot(df, aes(x=ImaginaryVal, ymin=From, lower=From,fill=Soiltype,
            middle=`Mid`, upper=To, ymax=To)) +
          geom_boxplot(colour= "black", stat="identity") +                              scale_y_reverse(breaks = seq(0,10,0.5)) + xlab('Soiltype') +                  ylab('Depth (m)') + theme(axis.text.x = element_blank(),                    axis.ticks.x = element_blank()) 

 ggdraw(switch_axis_position(plot + theme_bw(8), axis = 'x'))

画像では、赤い矢印と線を使用して、必要なものを指摘しました。