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