Различия

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

--- classifydiag:tas_ru_plutonic [2016/12/19 13:47]
f0ma
+++ classifydiag:tas_ru_plutonic [2018/11/12 15:07] (текущий)
@@ Строка 1: / Строка 1: @@
 ====== TAS диаграмма для плутонических пород ======
-TAS диаграмма для плутонических пород.
+TAS диаграмма для плутонических пород. Сокращения: н/щ - низкощелочной, у/щ - умереннощелочной, щел. - щелочной, кв. - кварцевый.
 === Details ===
@@ Строка 24: / Строка 24: @@
                   Y=ds$K2O_wtp + ds$Na2O_wtp);
-marks  <- data.frame(Label=c(""),
+marks  <- data.frame(Label=c("фойдовые\nпороды",
-                     X=c(0.0),
+                             "щелочные\nпороды разной\nосновности",
-                     Y=c(0.0));
+                             "монцо-\nгаббро",
+                             "габбро",
+                             "н/щ\nгаббро",
+                             "монцо-\nгаббро\nдиориты",
+                             "габбро\nдиориты",
+                             "н/щ\nгаббро\nдиориты",
+                             "монцо-\nдиориты",
+                             "диориты",
+                             "н/щ\nдиориты",
+                             "монцониты",
+                             "кв. диориты",
+                             "н/щ кв.\nдиориты",
+                             "фоидовые\nсиениты",
+                             "щел.\nсиениты",
+                             "сиениты",
+                             "грано-\nсиениты",
+                             "грано-\nдиориты",
+                             "н/щ грано-\nдиориты",
+                             "щел.\nграниты",
+                             "у/щ\nграниты",
+                             "граниты",
+                             "н/щ\nграниты",
+                             "щел.\nлейко-\nграниты",
+                             "у/щ\nлейко-\nграниты",
+                             "лейко-\nграниты",
+                             "н/щ\nлейко-\nграниты",
+                             "ультраосновные",
+                             "основные",
+                             "средние",
+                             "кислые",
+                             "н/щ",
+                             "норм.\nщел.",
+                             "у/щ",
+                             "щел."
+                             ),
+                     X=c( 42,47.5,47.5, 48.5,  49, 50.8, 53.5, 53.5,  54,  57,  57 ,  58, 61.5, 61.5, 57.5, 61.5,   63,  65, 66.5, 66.5, 69, 70.5,  71,  71,   75,  75 , 75.5, 75.5, 40, 48.5, 57.5, 70, 79, 79, 79, 79),
+                     Y=c(9.5, 8.5, 4.7,  2.8, 1.2,   6.3,    4,    2, 7.4, 4.8, 2.5 , 8.5,  5.5,    3, 13.5, 12.2, 10.3, 8.5,  6.5,  4.1, 11,    9, 6.8, 4.5, 10.7, 8.7,  7,    5, -0.5, -0.5, -0.5, -0.5, 5, 7, 8.5, 9.5));
-limits <- c(35,78,0,14);
+limits <- c(35,79,-1,14);
@@ Строка 53: / Строка 89: @@
 ret$points <- pts;
 ret$limits <- limits;
-ret$lines <- rbind(rads,sec);
+ret$lines <- rbind(rads,sec,pls);
 ret$labels  <- labels;
+ret$marks <- marks;
 return(ret);