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("Alk", "FeO*", "MgO");

lines <- data.frame(X1 = c(0.3),
                    Y1 = c(0.7),
                    Z1 = c(0.0)
                    X2 = c(0.37),
                    Y2 = c(0.37)
                    Z2 = c(0.15));
ret <- c();
ret$type <- "ternogram";
ret$points <- pts;
ret$labels  <- labels;
ret$lines <- lines;
 
return(ret);
}