Alk-MgO-FeO: Thoeliitic - Calc-Alkaline

Thoeliitic - Calc-Alkaline

<data plot> Reference [wiki]: Data: bulk Input: K2O_wtp, Na2O_wtp, MgO_wtp, FeO_wtp, Fe2O3_wtp </data>

require('ggtern');

classifydiag.amf <- function (wtp_data, ...)
{  
ds <- selectNames(wtp_data,c('Name','K2O_wtp','Na2O_wtp','MgO_wtp','FeO_wtp','Fe2O3_wtp'));

pts <- data.frame(Name=ds$Name,
                  X = ds$K2O_wtp + ds$Na2O_wtp,
                  Y = ds$FeO_wtp + ds$Fe2O3_wtp,
                  Z = ds$MgO_wtp);
 
labels <- c("K2O + Na2O", "FeO+Fe2O3", "MgO");
 
ret <- c();
ret$type <- "ternogram";
ret$points <- pts;
ret$labels  <- labels;
 
return(ret);
}