Y-Nb: Granitic Rocks, Pearce, 1984

Это старая версия документа!

Y-Nb discriminant diagrams for syn-collision granites (syn-COLG), volcanic arc granites (VAG), within plate granites (WPG) and ocean ridge granites (ORG).

Details

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	Nb_ppm, Y_ppm

Использовать Проверить

Source

 
require('ggplot2');
 
classifydiag.granites_y_nb_pearce <- function (wtp_data, ...)
{  
ds <- selectNames(wtp_data,c('Name','Nb_ppm','Y_ppm'))
 
pts <- data.frame(Name=ds$Name,
                  X = ds$Y_ppm,
                  Y = ds$Nb_ppm);
 
labels <- c("Y", "Nb");
 
lines <- data.frame(X1 = c(40, 1000,    3, 500),
                    Y1 = c(1,    95,  500, 250),
                    X2 = c(50,   50,   50,  30),
                    Y2 = c(11,   11,   11,  25));
 
marks  <- data.frame(Label=c("ORG", "WPG", "VAG +\n syn-COLG"),
                         X=c(  300,    20,                  4),
                         Y=c(    3,    90,                 40));
 
ret <- c();
ret$type <- "diagram";
ret$points <- pts;
ret$labels  <- labels;
ret$marks  <- marks;
ret$lines  <- lines;
ret$limits <- c(1,1000,1,2000);
ret$scale <- c('log','log');
 
return(ret);
}