我正在尝试比较每个位置的单个图表上多个位置的两组数据。数据具有结构
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