Nb-Zr-Y: Geodinamic Settings, Meschede

Basalts Geodinamic Settings Meschede.

Использовать Проверить

require('ggtern');

classifydiag.basalts_meschede <- function (wtp_data, ...)
{  
ds <- selectNames(wtp_data,c('Name','Nb_ppm','Zr_ppm','Y_ppm'));

pts <- data.frame(Name=ds$Name,
                  X = ds$Zr_ppm/4,
                  Y = ds$Nb_ppm*10,
                  Z = ds$Y_ppm);

labels <- c("Zr/4", "2*Nb", "Y");
 
ret <- c();
ret$type <- "ternogram";
ret$points <- pts;
ret$labels  <- labels;
 
return(ret);
}