Basalts Geodinamic Settings Mullen

Basalts Geodinamic Settings Mullen

require('ggtern');

classifydiag.amf <- function (wtp_data, annotate=T, labels=F, ...)
{  
font_size=3;
line_height=0.7;
ds <- selectNames(wtp_data,c('Name','TiO2_wtp','MnO_wtp','P2O5_wtp'))

ds$X <- ds$MnO_wtp*10;
ds$Y <- ds$TiO2_wtp;
ds$Z <- ds$P2O5_wtp*10;

p <- ggtern(ds, aes(x=X, y=Y, z=Z)) +
  geom_point() +
  labs( x = "MnO_wtp*10", y = "TiO2_wtp", z = "P2O5_wtp*10" ) + 
  theme_bw();

return (p);
}