Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
classifydiag:basalts_k2o_sio2 [2016/03/07 21:57] admin |
classifydiag:basalts_k2o_sio2 [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 4: | Строка 4: | ||
| === Details === | === Details === | ||
| + | |||
| + | | Reference | | | ||
| + | | Data | bulk | | ||
| + | | Input | SiO2_wtp, K2O_wtp | | ||
| + | |||
| + | <use:classifydiag.basalts_k2o_sio2> | ||
| + | <test:classifydiag.basalts_k2o_sio2> | ||
| <WRAP center round todo 60%> | <WRAP center round todo 60%> | ||
| - | * заголовок | + | * <del>заголовок</del> |
| * краткое описание | * краткое описание | ||
| * статья | * статья | ||
| * ссылка | * ссылка | ||
| - | * карточка | + | * <del>карточка</del> |
| * подробное описание | * подробное описание | ||
| - | * код | + | * <del>код</del> |
| * тест | * тест | ||
| </WRAP> | </WRAP> | ||
| Строка 19: | Строка 26: | ||
| <Code linenums lang-r> | <Code linenums lang-r> | ||
| + | require('ggplot2'); | ||
| classifydiag.basalts_k2o_sio2 <- function (wtp_data, ...){ | classifydiag.basalts_k2o_sio2 <- function (wtp_data, ...){ | ||
| - | ds <- selectNames(recalc.cpx_sturm(wtp_data), | + | ds <- selectNames(wtp_data, c("Name", "SiO2_wtp", "K2O_wtp")); |
| - | c("Name", "SiO2_wtp", "K2O_wtp")); | + | |
| pts <- data.frame(Name=ds$Name, | pts <- data.frame(Name=ds$Name, | ||
| Строка 30: | Строка 37: | ||
| marks <- data.frame(Label=c("Low-K", "Medium-K", "High-K", "Acid", "Basic"), | marks <- data.frame(Label=c("Low-K", "Medium-K", "High-K", "Acid", "Basic"), | ||
| - | X=c(58, 58, 58, 58, 54), | + | X=c(60, 60, 60, 60, 55), |
| - | Y=c(0.2, 1.2, 2.5, 3.5, 3.0)); | + | Y=c(0.2, 1.2, 2.5, 3.8, 3.2)); |
| limits <- c(50,65,0,4); | limits <- c(50,65,0,4); | ||
| Строка 38: | Строка 45: | ||
| Y1 = c(0, 0, 0, 0.5, 1.6, 2.6), | Y1 = c(0, 0, 0, 0.5, 1.6, 2.6), | ||
| X2 = c(53, 57, 63, 63, 63, 63), | X2 = c(53, 57, 63, 63, 63, 63), | ||
| - | Y2 = c(2.6, 3.1, 4, 1.0, 2.3, 4)); | + | Y2 = c(2.6, 3.15, 4, 1.0, 2.3, 4)); |
| labels <- c("SiO2", "K2O"); | labels <- c("SiO2", "K2O"); | ||
| Строка 54: | Строка 61: | ||
| } | } | ||
| </Code> | </Code> | ||
| + | |||
| + | {{tag>classifydiag wholerock}} | ||