Различия

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

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия
Предыдущая версия
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 micascomposition 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));​
  
-<- 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 = c3,  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_sizelineheight=line_heighthjust=-0.4vjust=0) + +                    Y2 c( 2-1, -3  -1,   0, 3));   
-  ​annotate("text", ​x = 0, y = -1.25label = "​Muscovite\n(Celadonite)", ​size=font_sizelineheight=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}}
  • classifydiag/micas_tischendorf.1443094255.txt.gz
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)