Я пытаюсь сравнить два набора данных для нескольких местоположений на отдельной диаграмме для каждого местоположения... данные имеют структуру
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