Править страницу Ссылки сюда Это старая версия документа! Basalts Geodinamic Settings Mullen Basalts Geodinamic Settings Mullen Подробнее Код метода require('ggtern'); classifydiag.basalts_mullen <- 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(); if (labels) { p <- p + geom_text(aes(label=Name),hjust=0, vjust=0, size=font_size, lineheight=line_height); } return (p); } classifydiag/basalts_mullen.1455827683.txt.gz Последние изменения: 2018/11/12 15:08(внешнее изменение) Войти