Nb-Zr-Y: Geodinamic Settings, Meschede

Basalts Geodinamic Settings Meschede.

<data plot> Reference [wiki]: Data: bulk Input: Nb_ppm, Zr_ppm, Y_ppm </data> Использовать Проверить

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);
}