Yb-Ta: Granitic Rocks, Pearce, 1984

Yb-Ta 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 Yb_ppm, Ta_ppm

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

Source

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

  • classifydiag/granites_yb_ta_pearce.txt
  • Последние изменения: 2018/11/12 15:07
  • (внешнее изменение)