0

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

gw <- well.id    date    benzene    bgs 

bgs 是以英尺为单位的水深(地表以下)。(我想颠倒这个轴)苯在一些井中从 3 到 9 不等,在其他井中从 0.0001 到 0.01....

我想绘制苯浓度图,以便它们与水的深度重叠,以便在两个数据集之间建立视觉相关性......

请看这个excel示例图: 在此处输入图像描述

在这里你可以找到数据

我想到的方面是反向轴上的一个数据,每个井位置和数据集独有的缩放 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

4

0 回答 0