Basalts Geodinamic Settings Mullen

Basalts Geodinamic Settings Mullen

require('ggtern');

classifydiag.basalts_mullen <- function (wtp_data, annotate=T, labels=F, ...)
{  
ds <- selectNames(wtp_data,c('Name','TiO2_wtp','MnO_wtp','P2O5_wtp'))

pts <- data.frame(Name=ds$Name,
                  X = ds$MnO_wtp*10,
                  Y = ds$TiO2_wtp,
                  Z = ds$P2O5_wtp*10);

labels <- c("MnO_wtp*10", "TiO2_wtp", "P2O5_wtp*10");
 
ret <- c();
ret$type <- "ternogram";
ret$points <- pts;
ret$labels  <- labels;
 
return(ret);
}