Различия

Здесь показаны различия между двумя версиями данной страницы.

--- classifydiag:basalts_meschede [2016/02/18 20:37]
admin
+++ classifydiag:basalts_meschede [2018/11/12 15:07] (текущий)
@@ Строка 1: / Строка 1: @@
-====== Basalts Geodinamic Settings Meschede ======
+====== Nb-Zr-Y: Geodinamic Settings, Meschede ======
 Basalts Geodinamic Settings Meschede.
-=== Подробнее ===
+=== Details ===
+| Reference | |
+| Data | bulk |
+| Input | Nb_ppm, Zr_ppm, Y_ppm |
-=== Код метода ===
+<use:classifydiag.basalts_meschede>
+<test:classifydiag.basalts_meschede>
+<WRAP center round todo 60%>
+  * заголовок
+  * краткое описание
+  * статья
+  * ссылка
+  * <del>карточка</del>
+  * подробное описание
+  * код
+  * тест
+</WRAP>
+=== Source ===
 <Code linenums lang-r>
 require('ggtern');
-classifydiag.basalts_meschede <- function (wtp_data, annotate=T, labels=F, ...)
+classifydiag.basalts_meschede <- function (wtp_data, ...)
 {
-font_size=3;
+ds <- selectNames(wtp_data,c('Name','Nb_ppm','Zr_ppm','Y_ppm'));
-line_height=0.7;
-ds <- selectNames(wtp_data,c('Name','Nb_gpt','Zr_gpt','Y_gpt'));
-ds$X <- ds$Zr_gpt/4;
+pts <- data.frame(Name=ds$Name,
-ds$Y <- ds$Nb_gpt*10;
+                  X = ds$Zr_ppm/4,
-ds$Z <- ds$Y_gpt;
+                  Y = ds$Nb_ppm*10,
+                  Z = ds$Y_ppm);
-p <- ggtern(ds, aes(x=X, y=Y, z=Z)) +
+labels <- c("Zr/4", "2*Nb", "Y");
-  geom_point() +
-  labs( x = "Zr_gpt/4", y = "2*Nb_gpt", z = "Y_gpt" ) +
+ret <- c();
-  theme_bw();
+ret$type <- "ternogram";
+ret$points <- pts;
-  if (labels)
+ret$labels  <- labels;
-{
-    p <- p + geom_text(aes(label=Name),hjust=0, vjust=0, size=font_size, lineheight=line_height);
+return(ret);
-}
-return (p);
 }
 </Code>
+{{tag>classifydiag wholerock}}