具有多个日期和大量缩放问题的多个图

Question

我正在尝试比较每个位置的单个图表上多个位置的两组数据。数据具有结构

gw <- well.id    date    benzene    bgs 

bgs是以水为单位的深度（地下表面）。 （我想扭转这个轴） 一些井中苯的含量范围为3至9，其他苯的含量范围为0.0001至0.01。

我想绘制苯浓度，使它们与水的深度重叠，以获得两个数据集之间的视觉关联......

请看这个excel示例图：

在这里你可以找到data

我想到的方面是反向轴中的一个数据，每个井位置和数据集唯一的缩放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..

我知道我正在尝试单独缩放我的y轴，每个位置（well.id）和数据集（苯和 bgs）都是唯一的，而且只有一个是反向的（bgs）把第二个y轴放在图表的另一边......但我没有把它弄好。

一如既往，任何帮助都会很棒，

ZR