====== 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 | <ref:pearce1984> |
| Data | bulk |
| Input | Yb_ppm, Ta_ppm |

<use:classifydiag.granites_yb_ta_pearce>
<test:classifydiag.granites_yb_ta_pearce>

=== Source ===

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

</Code>

{{tag>classifydiag wholerock}}