Discrimination diagram for characterizing island-arc tholeiiters on the basis of Y-Cr covariations.
| Reference | Pearce, Julian A Trace element characteristics of lavas from destructive plate boundaries, 1982 [ref] |
| Data | bulk |
| Input | Cr_ppm, Y_ppm |
require('ggplot2');
classifydiag.basalts_cr_y_pearce <- function (wtp_data, ...)
{
ds <- selectNames(wtp_data,c('Name','Cr_ppm','Y_ppm'))
pts <- data.frame(Name=ds$Name,
X = ds$Y_ppm,
Y = ds$Cr_ppm);
labels <- c("Y", "Cr");
ret <- c();
ret$type <- "diagram";
ret$points <- pts;
ret$labels <- labels;
ret$limits <- c(1,250,10,2000);
ret$scale <- c('log','log');
return(ret);
}