Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
classifydiag:micas_tischendorf [2015/09/24 11:30] admin |
classifydiag:micas_tischendorf [2018/11/12 15:07] (текущий) |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
- | ====== Классификация слюд в системе FeAl/MgLi ====== | + | ====== True and brittle micas composition, Tischendorf, 2007 ====== |
- | Классификация слюд в системе FeAl-MgLi. | + | True and brittle micas: composition and solid-solution series. |
- | === Подробнее === | + | === Details === |
- | ^ Информация о публикации | G. Tischendorf, H. -J. Förster, B. Gottesmann and M. Rieder, True and brittle micas: composition and solid-solution series (2007), in: Mineral. Mag., 71:3(285–320) | | + | | Reference | <ref:tischendorf2007> | |
- | ^ Ссылка | {{:sources:tischendorf2007.pdf}} | | + | | Data | mineral | |
- | ^[[:ppy:mod_classifydiag#micas_tischendorf|Построить]] ^ ^ | + | | Input | wtp | |
- | === Код метода === | + | <use:classifydiag.micas_tischendorf> |
+ | <test:classifydiag.micas_tischendorf> | ||
+ | |||
+ | <WRAP center round todo 60%> | ||
+ | * <del>заголовок</del> | ||
+ | * <del>краткое описание</del> | ||
+ | * <del>статья</del> | ||
+ | * <del>ссылка</del> | ||
+ | * <del>карточка</del> | ||
+ | * подробное описание | ||
+ | * <del>код</del> | ||
+ | * тест | ||
+ | </WRAP> | ||
+ | |||
+ | === Source === | ||
<Code linenums lang-r> | <Code linenums lang-r> | ||
Строка 17: | Строка 31: | ||
classifydiag.micas_tischendorf <- function (wtp_data, annotate=T, labels=F, ...) | classifydiag.micas_tischendorf <- function (wtp_data, annotate=T, labels=F, ...) | ||
{ | { | ||
- | font_size=3; | ||
- | line_height=0.7; | ||
ds <- selectNames(recalc.ms_tpf_realc0(wtp_data),c('Name','Mg_pfu','Li_pfu','Fe_pfu','Al_c4_pfu')); | ds <- selectNames(recalc.ms_tpf_realc0(wtp_data),c('Name','Mg_pfu','Li_pfu','Fe_pfu','Al_c4_pfu')); | ||
- | end_members <- data.frame(x=c(0,-1,-2,0,0,2,3,0), y=c(3,2,-1,-3,-1.8,-1,0,1), lab=c('ann','','pol','hyp-mus','mus','eas','phl','sid')); | + | pts <- data.frame(Name=ds$Name, |
+ | X=ds$Mg_pfu-ds$Li_pfu, | ||
+ | Y=ds$Fe_pfu-ds$Al_c4_pfu); | ||
+ | |||
+ | emembers <- data.frame(Label=c('ann','','pol','hyp-mus','mus','eas','phl','sid'), | ||
+ | X=c(0,-1,-2,0,0,2,3,0), | ||
+ | Y=c(3,2,-1,-3,-1.8,-1,0,1)); | ||
- | p <- ggplot(ds, aes(x=Mg_pfu-Li_pfu,y=Fe_pfu-Al_c4_pfu)) + | + | lines <- data.frame(X1 = c( 0, -1, -2, 0, 2, 3), |
- | geom_point() + | + | Y1 = c( 3, 2, -1, -3, -1, 0), |
- | geom_point(data=end_members,aes(x=x,y=y),shape = 25) + | + | X2 = c(-1, -2, 0, 2, 3, 0), |
- | geom_text(data=end_members,aes(x=x,y=y,label=lab), size=font_size, lineheight=line_height, hjust=-0.4, vjust=0) + | + | Y2 = c( 2, -1, -3, -1, 0, 3)); |
- | annotate("text", x = 0, y = -1.25, label = "Muscovite\n(Celadonite)", size=font_size, lineheight=line_height)+ | + | |
- | theme_bw() + | + | marks <- data.frame(Label=c("Phlogopite-\n-Annite", "Siderophyllilte-\n-Ploylithionite", "Muscovite\n(Celadonite)"), |
- | xlim(c(-2,3)) + | + | X=c(1, -0.25, 0), |
- | ylim(c(-3,3)) + | + | Y=c(2, 0.5, -1.25)); |
- | xlab("Li <-> Mg")+ | + | |
- | ylab("Al_iv <-> Fe_tot"); | + | limits <- c(-2,3,-3,3); |
+ | |||
+ | |||
+ | labels <- c("Li <-> Mg", "Al_iv <-> Fe_tot"); | ||
| | ||
+ | ret <- c(); | ||
+ | ret$type <- "diagram"; | ||
+ | ret$points <- pts; | ||
+ | ret$limits <- limits; | ||
+ | ret$marks <- rbind(marks,emembers); | ||
+ | ret$lines <- lines; | ||
+ | ret$labels <- labels; | ||
- | if (labels) | + | return(ret); |
- | { | + | |
- | p <- p + geom_text(aes(label=Name),hjust=0, vjust=0, size=font_size, lineheight=line_height); | + | |
- | } | + | |
- | + | ||
- | + | ||
- | return(p); | + | |
} | } | ||
</Code> | </Code> | ||
+ | |||
+ | {{tag>classifydiag mineral}} |