Basalts Geodinamic Settings Pearce

Basalts Geodinamic Settings Pearce.

require('ggtern');

classifydiag.basalts_pearce <- function (wtp_data, annotate=T, labels=F, ...)
{  
ds <- selectNames(wtp_data,c('Name','Ti_gpt','Zr_gpt','Y_gpt'));

pts <- data.frame(Name=ds$Name,
                  X = ds$Zr_gpt,
                  Y = ds$Ti_gpt/100,
                  Z = ds$Y_gpt*3);
 
labels <- c("Zr_gpt", "Ti_gpt/100", "Y_gpt*3");
 
ret <- c();
ret$type <- "ternogram";
ret$points <- pts;
ret$labels  <- labels;
 
return(ret);
}