Различия
Здесь показаны различия между двумя версиями данной страницы.
| Следующая версия | Предыдущая версия | ||
|
classifydiag:granites_y_nb_pearce [2016/12/18 22:21] f0ma создано |
classifydiag:granites_y_nb_pearce [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 28: | Строка 28: | ||
| labels <- c("Y", "Nb"); | labels <- c("Y", "Nb"); | ||
| + | lines <- data.frame(X1 = c(40, 1000, 3, 500), | ||
| + | Y1 = c(1, 95, 500, 250), | ||
| + | X2 = c(50, 50, 50, 30), | ||
| + | Y2 = c(11, 11, 11, 25)); | ||
| + | |||
| + | marks <- data.frame(Label=c("ORG", "WPG", "VAG +\n syn-COLG"), | ||
| + | X=c( 300, 20, 4), | ||
| + | Y=c( 3, 90, 40)); | ||
| + | |||
| ret <- c(); | ret <- c(); | ||
| ret$type <- "diagram"; | ret$type <- "diagram"; | ||
| ret$points <- pts; | ret$points <- pts; | ||
| ret$labels <- labels; | ret$labels <- labels; | ||
| + | ret$marks <- marks; | ||
| + | ret$lines <- lines; | ||
| ret$limits <- c(1,1000,1,2000); | ret$limits <- c(1,1000,1,2000); | ||
| ret$scale <- c('log','log'); | ret$scale <- c('log','log'); | ||