Различия

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

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