Yb-Ta discriminant diagrams for syn-collision granites (syn-COLG), volcanic arc granites (VAG), within plate granites (WPG) and ocean ridge granites (ORG).
| Reference | Pearce, Julian A., Harris, Nigel B. W., Tindle, Andrew G. Trace element discrimination diagrams for the tectonic interpretation of granitic rocks, 1984 [ref] |
| Data | bulk |
| Input | Yb_ppm, Ta_ppm |
require('ggplot2');
classifydiag.granites_yb_ta_pearce <- function (wtp_data, ...)
{
ds <- selectNames(wtp_data,c('Name','Yb_ppm','Ta_ppm'))
pts <- data.frame(Name=ds$Name,
X = ds$Yb_ppm,
Y = ds$Ta_ppm);
labels <- c("Yb", "Ta");
lines <- data.frame(X1 = c(5, 50, 0.5, 0.2, 50),
Y1 = c(0.1, 4, 20, 0.5, 15),
X2 = c(5, 5, 5, 3, 3),
Y2 = c(1, 1, 1, 2, 2));
marks <- data.frame(Label=c("VAG", "ORG", "syn-COLG", "WPG"),
X=c( 0.7, 20, 0.4, 1.5),
Y=c( 0.15, 0.3, 7, 12));
ret <- c();
ret$type <- "diagram";
ret$points <- pts;
ret$labels <- labels;
ret$marks <- marks;
ret$lines <- lines;
ret$limits <- c(0.1,100,0.1,100);
ret$scale <- c('log','log');
return(ret);
}