Различия
Здесь показаны различия между двумя версиями данной страницы.
spdgrams:ree_primitive_mantle [2016/03/11 11:01] admin |
spdgrams:ree_primitive_mantle [2018/11/12 15:07] |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
- | ====== Primitive Mantle ====== | ||
- | |||
- | === Details === | ||
- | |||
- | <data plot> | ||
- | Reference [wiki]: | ||
- | Data: bulk | ||
- | Input: ppm | ||
- | </data> | ||
- | |||
- | <WRAP center round todo 60%> | ||
- | * заголовок | ||
- | * краткое описание | ||
- | * статья | ||
- | * ссылка | ||
- | * <del>карточка</del> | ||
- | * подробное описание | ||
- | * код | ||
- | * тест | ||
- | </WRAP> | ||
- | |||
- | |||
- | === Source === | ||
- | |||
- | <Code linenums lang-r> | ||
- | require('ggplot'); | ||
- | |||
- | cmp <- read.csv("constants_oceanic_basalts_compositions.csv", sep=";", stringsAsFactors=F); | ||
- | |||
- | spdgrams.ree_primitive_mantle <- function(ppm_data) | ||
- | { | ||
- | ns <- c('Cs', 'Rb', 'Ba', 'Th', 'U', 'Nb', 'Ta', 'La', 'Ce', 'Pb', 'Pr', | ||
- | 'Sr', 'Nd', 'Zr', 'Hf', 'Sm', 'Eu', 'Gd', 'Tb', 'Dy', 'Y', 'Ho', | ||
- | 'Er', 'Tm', 'Yb', 'Lu'); | ||
- | |||
- | pmsc <- c(); | ||
- | |||
- | for (n in ns) | ||
- | pmsc <- c(pmsc, subset(cmp, element == n)$primitive_mantle); | ||
- | |||
- | ds <- selectNames(ppm_data,c(paste0(ns,'_ppm'))); | ||
- | |||
- | names(ds) <- ns; | ||
- | |||
- | ret <- c(); | ||
- | |||
- | values <- cbind(ppm_data$Name, rowApply(`/`,ds,pmsc)); | ||
- | names(values)[1] <- 'Name'; | ||
- | |||
- | ret$values <- values; | ||
- | ret$grades <- ns; | ||
- | ret$labels <- c('REE', 'Sample/Primitive mantle'); | ||
- | |||
- | return(ret); | ||
- | } | ||
- | </Code> |