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); }