r - 複数のデータと多くのスケーリングの問題を伴う複数のプロット

Question

各場所の個別のグラフで、複数の場所の 2 つのデータ セットを比較しようとしています。データには構造があります。

gw <- well.id    date    benzene    bgs 

bgs は水深 (地表下) をフィート単位で表したものです。(この軸を逆にしたい) ベンゼンの範囲は 3 から 9 の井戸もあれば、.0001 から .01 の井戸もある....

ベンゼン濃度をプロットして、2 つのデータ セット間の視覚的な相関関係を得るために水深と重なるようにしたいと考えています...

このExcelの例のプロットを見てください：

ここでデータを見つけることができます

私が念頭に置いている側面は、逆軸の 1 つのデータ、各井戸の位置とデータ セットに固有のスケーリングされた y 値、およびプロットのサブセットを取得する機能です (最近の年に相関関係の変化を示す井戸のみのように) )

私はそれに近づいています...

setwd("~/my_ws")
gw <- read.csv("gw_cbp.csv")
gw


library(ggplot2) # Load the library

p <- ggplot(gw, aes(x=Date, y=Benzene)) + # Tell ggplot what you're plotting 
  geom_point() + #Tell ggplot it's a scatter plot
  geom_line() + # and i want lines
  facet_wrap(~ Well.ID) + # Plot one chart for each ID
  facet_grid(Date ~ Benzene, scales="free_y") ##not working... i know my syntax is wrong, just not sure how to fix it... 

p +
aes(x = Date, y = bgs)+
scale_y_reverse( y = bgs) # Reverse the axis
facet_grid(Date ~ bgs, scales="free_y")  ## still not working..

各場所（well.id）とデータセット（ベンゼンとbgs）の両方に固有のy軸を個別にスケーリングし、1つだけ逆に（bgs）、2番目のy軸を反対側に配置しようとしていることを知っていますチャートの...しかし、私はそれを正しく理解していません。

いつものように、どんな助けでも素晴らしいでしょう、

ZR